Плиз решите задачку!буду очень признателен!процедура в ТР!
Добавлено: 18 дек 2007, 08:55
Задача: Дано натуральное число.Определите сколко четных цифр используется в записи этого числа!
Код: Выделить всё
function HowMany (iNum : integer) : integer;
var S : string;
iLoop : integer;
iQty : integer;
begin
Str (iNum, S);
iQty := 0;
for iLoop := 1 to Length (S) do begin
if (S [iLoop] in ['0', '2', '4', '6', '8'] then
iQty := iQty + 1;
end;
HowMany := iQty;
end.