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

Question

Информатика

Настяха

13 октября, 16:46

Составить программу, которая по введенному натуральному числу 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.