Объяснение:
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.
1) Название программы
2)Описание постоянных переменных
3)Описание переменных
4)Начало
5)Параметрический цикл от 1 до N элементов
Вывод a[i]= (где i-число из цикла)
Ввод элемента в массив a под номер i
5)конец цикла
6)Присваиваем переменной max значение первого элемента массива
7)Параметрический цикл от 2 до n элемента
(Там не дописана программа частично после if, должно быть так:)
8) если максимальный элемент меньше a[i] элемента, то максимальному присваиваем значение a[i]
9) Вывод Найбільший елемент масиву max= (max число)
10) конец программы