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

program _1;

var i: Integer;

begin

for i:=1 to 5 do

writeln (i);

writeln ('программа выполнена');

readln;

end.

Задание 1. Изменить программу так, чтобы она выводила произвольное количество цифр (число N).

Ответ

Автор - alex44170

program _1;

var

i, N: Integer;

begin

readln(N);

for i := 1 to N do

writeln(i);

writeln('программа выполнена');

readln;

end.

пж как лучший

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.