Написать программу, подсчитывающую количество четных и нечетных цифр в числе.
Должная быть на пхп
прошу помогите если можете (((
var
a: integer;
even,odd: byte;
begin
readln(a);
even := 0;
odd := 0;
while a > 0 do begin
if (a mod 2) = 0 then
even := even + 1
else
odd := odd + 1;
a := a div 10;
end;
writeln('even: ', even);
writeln('odd: ', odd);
end.
есть на паскале, но не знаю рабочая или нет (((
|