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