Составить циклическую программу: задачи

Объяснение:

program nom_4;

var i:integer;

s: real;

begin

s:=0;

for i:=1 to 15 do

s:=1/i;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду четные числа в диапазоне от 1 до 20)

program nom_5;

var n, s:=integer;

begin

s:=0;

for n:=1 to 20 do

if (n mod 2=0) then s:=s+n;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду нечетные числа в диапазоне от 3 до 13)

program nom_6;

var n, s, pr:= integer;

begin

s:=0;

pr:=0;

for n:=3 to 13 do

begin

if (n mod 2<>0) then pr:=n*n;

s:=s+pr;

end;

writeln ('S=', s);

end.

или можно проще

program nom_6;

var n, s:= integer;

begin

s:=0;

for n:=3 to 13 do

s:=sqr(n)+s;

writeln ('S=', s);

end.

program nom_7;

var n, p: integer;

begin

p:=1;

for n:=1 to 8 do

p:=p*n;

writeln ('P=', p);

end.

(я не совсем понимаю что имеется в виду под х, поэтому предположу, что х мы должны ввести самостоятельно)

program nom_8;

var x, s: real;

i: integer;

begin

write ('Введите х');

readln (x);

s:=0;

for i:=2 to 7 do

s:=s+sin(i*x);

writeln ('S=', s);

end.