решите на пасхале
Задача:
Найти количество четных цифр натурального числа.
Формат ввода:
На вход подается натуральное, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных
321
Пример выходных данных
1
Ответ
1
var
num, ct: integer;
begin
read(num);
ct := 0;
while num <> 0 do
begin
if (num MOD 10) MOD 2 = 0 then
begin
ct += 1;
num := num div 10;
end else num := num div 10;
end;
write(ct);
end.
num, ct: integer;
begin
read(num);
ct := 0;
while num <> 0 do
begin
if (num MOD 10) MOD 2 = 0 then
begin
ct += 1;
num := num div 10;
end else num := num div 10;
end;
write(ct);
end.
AngelinaSuhonosova:
а как понять ct += 1?
HIPM:
ct += 1 это то же самое что и ct := ct + 1;
AngelinaSuhonosova:
спасибо
AngelinaSuhonosova:
за зачем нам переменная К, если мы её не используем?
HIPM:
удалите ее))) я просто сначала делать хотел через фор, а потом подумал что он не нужен
AngelinaSuhonosova:
хорошо)
AngelinaSuhonosova:
спасибо онромное!!!)))
Ответ
0
//PascalABC.NET версия 3.3
begin
readinteger().ToString.Where(x -> x.ToDigit mod 2 = 0).Count.Println;
end.
Пример работы программы:
832897238
5
begin
readinteger().ToString.Where(x -> x.ToDigit mod 2 = 0).Count.Println;
end.
Пример работы программы:
832897238
5