Программа, которая выводит ** экран первые пять натуральных чисел. program _1; var i:...

Question

Программа, которая выводит на экран первые пять натуральных чисел. program _1; var i: Integer; begin for i:=1 to 5 do writeln (i); writeln ('программа выполнена'); readln; end. Задание 1. Изменить программу так, чтобы она выводила произвольное количество цифр (число N).

Answer 1

program _1;

var

   i, N: Integer;

begin

   readln(N);

   for i := 1 to N do  

       writeln(i);  

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

   readln;  

end.  

пж как лучший

Comments

кстати последний readln не очень нужен