Регистрация
Makar198043
15.02.2022 14:01
Информатика
Есть ответ 👍

Дано n чисел. найти количество кратных 10

107
251
Посмотреть ответы 2

Ответы на вопрос:

Kristgame
Kristgame
4,6(74 оценок)
Var a,  n, k: integer; begin write('количество чисел - ');   readln(n); k: =0; for var i: =1 to n do  begin  read(a);   if (a mod 10 =0) then k: =k+1;   end; writeln(k); end. 
KatePie
KatePie
4,7(85 оценок)
Var вот так выразить r через формулу l= l, r, s: real; begin write('l='); readln(l); r: =l/2*pi; s: =pi*(r*r); writeln('r=',r); writeln('s=',s); end.

Популярно: Информатика