Дано натуральное число N<32767. Определите количество четных цифр в его записи.
107
192
Ответы на вопрос:
Var x,n,i,s: integer; begin write('сколько будет чисел: '); readln(n); writeln('вводите числа по одному: '); for i: =1 to n do begin readln(x); if x mod 2=0 then s: =s+x; end; writeln('s=',s); end.
Популярно: Информатика
-
zaylera3426.04.2023 13:06
-
Boba3509.03.2022 11:08
-
Luxky04.04.2020 17:17
-
Volchara022.11.2022 20:26
-
Эленедмонд10.04.2023 20:57
-
eldiraelf18.12.2022 21:08
-
СВЕТЛАНУШЕНЬКА07.06.2022 19:58
-
Nezlo817.02.2020 05:49
-
dasha45da14.01.2023 07:32
-
leryn199918.06.2022 13:16