Задание:
Найти четные цифры трехзначного числа
Решение:
var d,i: integer; s: string; Begin read (d); s: =str (d); for i: =1 to length (s) do if int (s[i]) mod 2=0 then writeln (s[i]); End.
Знаете другой ответ?
Найти четные цифры трехзначного числа
var d,i: integer; s: string; Begin read (d); s: =str (d); for i: =1 to length (s) do if int (s[i]) mod 2=0 then writeln (s[i]); End.
Знаете другой ответ?