Решение задач на языке Паскаль по теме "Цикл for "

Решение задач №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.