Построить блок-схемы:

1. Найти произведение первых N четных натуральных чисел.

2. Найти сумму нечетных натуральных чисел от К до L.

3. Протабулировать функцию у = 2 к, где к меняется от 2 до 10 с шагом 2.

1)

var n, i:integer;

p:real;

begin

write ('n=');

readln (n);

p:=1;

for i:=1 to n do

p:=p*2*i;

writeln ('p=', p);

end.

2) var i, s, n:integer;

begin

write ('Введите n=');

readln (n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln ('Сумма s=', s);

end.