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

Question

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

Comments

То есть сумма отрицательного двухзначного и положительного?

Answer 1

Program random;
var
mo, my:shortint;
begin
mo:=-10;
my:=22;
while (mo+my=12) and (my<100) do begin<br>writeln(mo,' + ',my,' = 12');
mo:=mo-1;
my:=my+1;
end;
end.