Question

Составить программы, вычисляющие:
1. Сумму квадратов нечетных чисел от 1 до 31.
2. Произведение четных чисел от 12 до 68.
ПРИМЕР 1. Вычислить сумму натурального ряда чисел от 1 до 10.

Program Summa;
Var a,s : integer;
Begin
{Цикл с предусловием}
a:=1 ; {начальное число}
s:=0 ; {не меняется}
while a<=10 do {конечное значение}
begin
s:= s+a ; {формула суммирования}
a:= a+1 {шаг}
end;
writeln( ‘результат первого суммирования ’, s);
{Цикл с постусловием}
a:= 1 ; {начальное число}
s:=0 ; {не меняется}
repeat
s:= s+a; {формула суммирования}
a:= a+1 {шаг}
until a>n ; {конечное значение}
writeln( ‘результат второго суммирования ’, s);
end.

ПРИМЕР 2. Вычислить произведение натуральных чисел от 1 до 10.

Program proizv;
Var p, n : integer;
Begin
{Цикл с предусловием}
a:=1 ; {начальное число}
P:=1; {не меняется}
while a<=10 do {конечное значение}
begin
P:=p*a ; {формула произведения}
a:= a+1 {шаг}
end;
writeln( ‘результат первого произведения ’, s);
{Цикл с постусловием}
a:= 1 ; {начальное число}
P:=1; {не меняется}
repeat
P:=p*a ; {формула произведения}
a:= a+1 {шаг}
until a>n ; {конечное значение}
writeln( ‘результат второго произведения ’, s);
End.