Задача 7.1.Порахувати суму S = 1 + 2 + 3 + , + N, N = 50;

Program Summa1;
Const n=50;
Var i:integer; S:integer;
Begin S:=0; {Початкове значення суми завжди =0}
for i:=1 to n do S:=S+i;
WriteLn('S=',S);
End.

Результати роботи програми: S=1275

2 спосiб.
Program Summa2;
Const n=50;
Var i: integer; S:integer;
Begin S:=0; {Початкове значення суми завжди =0}
i:=1;
while i <=n do begin S:=S+i; i:=i+1; end;
WriteLn('S=',S);
End.

3 спосiб.
Program Summa3;
Const n=50;
Var i: integer; S:integer;
Begin S:=0; {Початкове значення суми завжди =0}
i:=1;
Repeat S:=S+i; i:=i+1; until i>n;
WriteLn('S=',S);
End.

Завдання 7.1. Скласти програму для обчислення добутку чисел від 3 до 12.