составьте алгоритм нахождения произведения всех четных чисел от 0 до 100

Question

Информатика

Евлалия

29 июня, 01:42

составьте алгоритм нахождения произведения всех четных чисел от 0 до 100

+2

Ответы (1)

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

Магна · Answer 1

Программа на Pascal выглядит так:

Program Product;

Var i: Integer;

r: LongInt;

Beginr : = 1;

For i : = 0 To 100 Do

If i Mod 2 = 0 Then

r : = r * i;

WriteLn ('Результат: ', r) ;

ReadLn;

End.

Но так как нуль - тоже чётное, то всё произведение будет равно 0.