Задачи для самостоятельного решения по теме "Циклические алгоритмы. Цикл FOR."

№1.Дано натуральное число N(Вводится с клавиатуры). Написать программу, выводящую на экран натуральные числа от 1 до N.
входные данные 4
выходные данные 1 2 3 4

Решение:

program zadanie1;
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 zadanie2;
  var i, n: integer;
 begin
  write('N = ');   read(n);
      for i:=n downto 1 do
      write(i,' ');
     end.

№3. Даны натуральные числа N и K . Написать программу, выводящую на экран последовательность из N натуральных чисел, каждое из которых равно K.
входные данные N=5 K=0
выходные данные 0 0 0 0 0

Решение:

program zadanie3;
 var i, n, k: integer;
 begin
  write('N = ');   read(n);
  write('K = ');   read(k);
      for i:=1 to n do
      write(k,' ');
     end.

№4. Даны натуральные числа A и B (B>A). Написать программу, выводящую на экран последовательность натуральных чисел от A до B включая A и B.
входные данные A=2; B=5
выходные данные 2 3 4 5

Решение:

program zadanie4;
 var  a, b, i: integer;
 begin
  write('A = ');   read(A);
  write('B = ');   read(B);
      for i:=a to b do
  begin
    write(i,' ');
    end; 
end.

№5. Дано натуральное число N (N<10). Написать программу выводящую на экран последовательность квадратов всех чисел от 1 до N.
входные данные n=3
выходные данные 14 (14=1+2^2+3^2=1+4+9)

Решение:

program zadanie5;
var  n, i: integer;
   sum: real;
begin
  write('N = ');   read(n);
 sum:=0;
  for i:=1 to n do
     sum:=sum+sqr(i);
        write('Сумма равна  ',sum);
  end.