Урок 13.1 Задача 6

Урок 13.1 Задача 6

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

Решение:

program u13z06;
var i,j: integer;
begin
  i:=1;
  while i>0 do
  begin
    writeln('vvedite chislo');
    readln(i);
    if i>0 then
    begin
      for j:=1 to i do
      begin
        write(j,' ');
        writeln();
      end;
    end
    else
      writeln('ERROR');
  end;
  readln();
end.

Консоль:

vvedite chislo
10
1 2 3 4 5 6 7 8 9 10
vvedite chislo
9
1 2 3 4 5 6 7 8 9
vvedite chislo
-1
ERROR