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

Question

Информатика

Оляня

18 ноября, 22:41

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

+5

Ответы (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.