var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
Нет тебя не взломали такое бывает я не всети у других пишет что я всети лагает вайбер пароль тоже бывает тебя никто не взломал но на всякий случяй поменяй пароль
Вариант для Excel
исключим отображение бесконечного значения.
154 в 8 → 4*8∧0+5*8∧1+1*8∧2=4*1+40+64=108 в 10