Вывести все двухзначные числа с чётной суммой цифр. (программа на paskal)

danilshcherbin danilshcherbin    1   09.10.2019 13:27    14

Ответы
shapox shapox  10.10.2020 05:29

program SumNum;

var

 i: Integer;

begin

 for i := 10 to 99 do begin

   if (i div 10 + i mod 10) mod 2 = 0 then

     Write (i, ' ');

 end;

 ReadLn;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика