Question

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

Answer 1

Ответ:

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.