Написать программу, которая вводит натуральное число N и выводит первые N натуральных...

Question

Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел. (РЕШИТЬ ЗАДАЧУ С ИСПОЛЬЗОВАНИЕ ПРЕДУСЛОВИЯ) ВОТ ТАКИМ СПОСОБОМ: var a, i:integer; begin write('Введите натуральное число: '); readln(a); if (a <= 0) then writeln('Ошибка') else begin for i:=1 to a do writeln(i); end; end.

Answer 1

var a, i: integer;

begin

write('Введите натуральное число: ');

readln(a);

i:=1;

if (a

writeln('Ошибка')

else begin

while i <= a do begin</p>

writeln(i);

i:= i + 1;

end;

end;

end.

Comments

сейчас дождусь ответа учителя и скажу