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


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

xalva123 xalva123    1   22.02.2022 11:17    2

Ответы
veon1 veon1  22.02.2022 11:20

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.


Язык Паскаль, сделать 13 вариант через опиратора while, по типу второго фото.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика