//5 var sum, n: integer; begin readln(n); while (n > 0)do begin sum : = sum + n mod 10; n: = n div 10; end; if (sum mod 7 = 0) then writeln('сумма чисел кратна 7') else writeln('сумма чисел не кратна 7') end. //8 var a, cnt: integer; begin read(a); if (a < 50)then cnt: = cnt + 1; read(a); if (a < 50)then cnt: = cnt + 1; read(a); if (a < 50)then cnt: = cnt + 1; writeln(cnt); end. //10 var a, b: real; begin readln(a,b); if (a < abs(b)) then b: = b / 5; writeln(a, ' ', b); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Пож-та по информатике: ) : масса 8 литров бензина 5, 68кг, цестерна имеет объем 500м в кубе. хватит ли ее, чтобы вместить а тон бензина
1л=1дм^3
8л = 0.008 куб метров
5.68кг=0.00568 тон
плотность
0.00568/0.008=0.71 тон на кубометр
500*0.71 = 355 тон влезет в цистерну