Еремеевич
5 год назад
Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел. (РЕШИТЬ ЗАДАЧУ С ИСПОЛЬЗОВАНИЕ ПРЕДУСЛОВИЯ)ВОТ ТАКИМ СПОСОБОМ:var a, i:integer;beginwrite('Введите натуральное число: ');readln(a);if (a <= 0) thenwriteln('Ошибка')else beginfor i:=1 to a dowriteln(i);end;end.
ОТВЕТЫ
Marko
Oct 24, 2020
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.
121
Смежные вопросы:
