Ответы на вопрос:
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.
Популярно: Информатика
-
bun305.01.2021 11:05
-
FlayakaDanya24.07.2021 05:50
-
nanamaz06.02.2022 01:24
-
Регина5679723.10.2020 04:53
-
НЕВЕСОМАЯ6705.11.2021 15:01
-
Aurusu08.01.2023 16:02
-
dianakazaryan112.10.2021 19:34
-
elizavetkanaum19.01.2023 07:51
-
kristoyozhik24.02.2021 17:44
-
Bekarys200226.04.2021 18:01