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

valeraadyan valeraadyan    3   26.05.2019 08:40    2

Ответы
Inalova77 Inalova77  22.06.2020 18:19
Программа на 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика