Question

Виконайте алгоритми. Початок x := 5 x < 25 Повідомити значення х Кінець true x := x + 4​

Answer 1

Ответ:

var

 x: integer;

begin

 x := 5;

 while x < 25 do

 begin

   writeln(x);

   x := x + 4;

 end;

end.