Решите задачу на языке Pascal для 8 класса:
1) Распечатать только нечетные цифры числа
2) Количество каких больше, чётных или нечётных?
Ответы
Ответ дал:
0
Ответ:
это четные и нечетные
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.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад