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

Программа на 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.