найти произведение четных и не четных чисел в этой программе
var
a,s: integer;
b,c: byte;
begin
readln(a);
b := 0;
c := 0;
while a > 0 do begin
if (a mod 2) = 0 then
b := b + 1
else
c := c + 1;
a := a div 10;
end;
writeln('четные: ', b);
writeln('нечетные: ', c);
end.

ВалерияГрузд    2   20.04.2020 04:13    1