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

Question

Информатика

Вукол

2 сентября, 01:46

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

+4

Ответы (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.