Программка, которая выводит на экран 1-ые 5 естественных чисел. program _1;

Программка, которая выводит на экран 1-ые 5 естественных чисел.

program _1;

var i: Integer;

begin

for i:=1 to 5 do

writeln (i);

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

readln;

end.



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

Задать свой вопрос
2 ответа

program _1;

var

   i, N: Integer;

begin

   readln(N);

   for i := 1 to N do  

       writeln(i);  

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

   readln;  

end.  


Diana Suprozhenkova
пж отметь как наилучший

Добавьте integer a

После begin воткните readln(a);

Заместо 5 воткните a


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт