15 , с информатикой​ , не могу понять как правильно это сделать ​

вот в exele сделал всё .

Объяснение:

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.

// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.rows.selectmany(x-> x);   writeln('отношение min/max равно ',s.min/s.max: 0: 4) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   -38 -26 -68 -48  79 -61 -25 -97   26 -81 -67 -49  22 -15  45 -75   92  93 -59  -4 -21  91 -36  19   -65 -36 -18  -1 -12    8 -91 -29   -28 -33 -41  85 -94 -15 -33  69 отношение min/max равно -1.0430