Напечатать все двузначные числа сумма которых равна 12 (Делать через турбо паскаль)

Question

Информатика

Емилия

30 июля, 05:00

Напечатать все двузначные числа сумма которых равна 12 (Делать через турбо паскаль)

+1

Ответы (1)

Знаете ответ на вопрос?

Антоня · Answer 1

Program random;

var

mo, my:shortint;

begin

mo:=-10;

my:=22;

while (mo+my=12) and (my<100) do begin

writeln (mo,' + ', my,' = 12') ;

mo:=mo-1;

my:=my+1;

end;

end.