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

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

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

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

Question

Информатика

Зинуха

29 октября, 17:53

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

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

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Коста · Answer 1

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.