Ответы на вопрос:
заходишьв встаку заходишь в фигуры и ищешь круги и делаешь схему которая нужна
var
a, chet, nechet : integer;
begin
write('введите число: ');
readln(a);
while a > 0 do begin
if (a mod 10) mod 2 = 0then chet += 1
else nechet += 1;
a : = a div 10;
end;
writeln('четных: ', chet);
writeln('не четных: ', nechet);
end.
программа считает 0 как четное число. если нужно что бы 0 не
учитывался при подсчете то необходимо строку:
if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
заменить на:
if a mod 10 < > 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
Популярно: Информатика
-
MstyanKristina22.04.2021 01:30
-
mrmakaka312.04.2021 11:36
-
Gali7726.03.2020 13:35
-
castafirs15.09.2022 09:38
-
REDbad520.02.2023 11:04
-
polina1981200429.01.2022 16:03
-
Narine1018.03.2021 14:42
-
nik180208mailru18.09.2020 16:12
-
11264чс24.04.2020 10:52
-
fkbithxtvg28.08.2022 21:35