Напечатать все двузначные числа сумма которых равна 12(Делать через турбо паскаль)
Напечатать все двузначные числа сумма которых равна 12(Делать через турбо паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы