Question

Которую нужно решить на паскале методом until. ввести число n и m, увеличить по +1 n до m циклом и вывести каждый шаг.

Answer 1

Var n,m:integer;
begin
write('N = '); readln(n);
write('M = '); readln(m);
repeat
n:=n+1;
writeln('N = ',n);
until n>=m;
end.

Пример:
N = 5
M = 10
N = 6
N = 7
N = 8
N = 9
N = 10

Answer 2

Var n,m:integer;
begin
  writeln('введите n и m');
  readln(n,m);
  repeat
     n:=n+1;
     writeln(n);
  until n = m;
end.