Урок 12.1 Задание 1

Primary tabs

Submitted by Ksgor on Mon, 01/23/2023 - 15:45

Вывести на экран все числа от 1 до N с помощью цикла repeat/until.

var i,n: integer;
begin
  writeln ('vvedite chislo a');
  readln(n);
  i:= 1;
  repeat
    write (i, ' ');
    i:= i+1;
  until (i>n);
readln();
end.

Консоль:

vvedite chislo a
15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15