Question

Язык Паскаль, сделать 13 вариант через опиратора while, по типу второго фото.

Answer 1

Pascal

var

 i:integer;

begin

 i:=100;

 while i<=999 do begin

   if (i div 100) + (i mod 10) = 2 then

     writeln(i);

   inc(i);

 end;  

end.