Question

Напишите программу на Pascal,которая выводит на экран арифметическую прогрессию от 10 до 100 с шагом 10( цикл ПОКА)

Answer 1

var

i: integer;

begin

i:= 10;

while i <= 100 do

begin

write(i,' ');

i:= i + 10;

end;

end.

Answer 2

Конечно, вот программа на Pascal, которая выводит арифметическую прогрессию от 10 до 100 с шагом 10 с использованием цикла while:

pascalCopy code
program ArithmeticProgression;

var
  i: integer;

begin
  i := 10;
  while i <= 100 do
  begin
    writeln(i);
    i := i + 10;
  end;
end.

Эта программа начинает с числа 10 и продолжает выводить числа в арифметической прогрессии, добавляя 10 к предыдущему числу, пока не достигнет 100.