Question

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

program _1;

var i: Integer;

begin

for i:=1 to 5 do

writeln (i);

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

readln;

end.



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

Answer 1

Добавьте integer a

После begin вставьте readln(a);

Вместо 5 вставьте a

Answer 2

program _1;

var

   i, N: Integer;

begin

   readln(N);

   for i := 1 to N do  

       writeln(i);  

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

   readln;  

end.