Решение задач №3.
Цикл for
Цикл с переменной
Увеличение переменной на 1:
for := to
do begin
{тело цикла}
end;
Уменьшение переменной на 1:
for := downto
do begin
{тело цикла}
end;
№ 1. Дано натуральное число N(Вводится с клавиатуры). Написать программу, выводящую на экран натуральные числа от 1 до N. входные данные 4 выходные данные 1 2 3 4
program m1;
var i,n:integer;
begin write('n=');
read(n);
for i:=1 to n do write (i,' ');
end.
№ 2. Дано натуральное числа N . Написать программу, выводящую на экран последовательность из от N до 1. входные данные N=5 выходные данные 5 4 3 2 1
program mainFor2;
var i, n: integer;
begin write('N = ');
read(n);
for i:=n downto 1 do write(i,' ');
end.
№ 3. Составить программу, которая выводящую на экран последовательность из n чисел, каждое из которых равно 7 входные данные n=5 выходные данные 7 7 7 7 7
program m_3;
Var n, i: integer;
begin
write('n= ');
read(n);
for i:=1 to n do
write(7, ' ');
end.
№ 4. Составить программу, которая выводит произведение натуральных чисел от 3 до N, включая 3 и N //входные данные n=5 //выходные данные 60 (60=3*4*5)
program m16;
var n, i, s: integer;
begin
write('n= ');
read(n);
s:=1;
for i:=3 to N do s:=s*i;
write('Произведение=',s);
end.