Ответ:

1. S = 4950

program z1;

var i,S:integer;

begin

S:=0;

i:=1;

while i<100 do

begin

S:=S+i;

i:=i+1

end;

writeln(S)

end.

2. S = 914,5

program z2;

var i,S:real;

begin

S:=0;

i:=1;

while i<=30 do

begin

S:=S+i;

i:=i+0.5

end;

writeln(S)

end.

3. P = 10321920

program z3;

var i,P:integer;

begin

P:=1;

for i:=2 to 16 do if i mod 2 = 0 then P:=P*i;

writeln(P)

end.

Объяснение:

1. Переменные целые, задаем начальное значение переменных, цикл пока: считаем сумму, увеличиваем переменную на 1, вывод.

2. Переменные вещественные, задаем начальное значение переменных, цикл пока: считаем сумму, увеличиваем переменную на 0,5, вывод.

3. Переменные целые, задаем начальное значение переменной, цикл для: если переменная-счётчик соответствует условию, то считаем произведение, переменная-счётчик автоматически увеличивается на 1, вывод.