Составить программу, которая по введенному натуральному числу n вычисляет произведение четных чисел из диапазона от 1 до n. (паскаль)

Question

Информатика

Римуся

10 марта, 02:50

Составить программу, которая по введенному натуральному числу n вычисляет произведение четных чисел из диапазона от 1 до n. (паскаль)

+3

Ответы (1)

Знаешь ответ?

Эмка · Answer 1

Var n, s, i:integer;

begin

s:=1;

writeln ('Введите число');

readln (n);

for i:=1 to n do

begin

if (i mod 2 = 0) then s:=s*i;

end;

writeln (s);

end.