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

tenickiy176 tenickiy176    2   23.04.2020 22:28    0

Ответы
mlevosin mlevosin  13.10.2020 19:26

var a, i: integer;

begin

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

readln(a);

i:=1;

if (a <= 0) then

writeln('Ошибка')

else begin

while i <= a do begin

writeln(i);

i:= i + 1;

end;

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика