составьте алгоритм нахождения произведения всех четных чисел от 0 до 100
10-11 класс
|
Программа на 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.
Можно решение на PascalABC дать?
по идее произведении должно ровняться нулю.
так как первое чётное число ноль, все следующие числа будут умножаться на ноль.
Другие вопросы из категории
или первый не сдал; 3. если четвертый не сдал, то первый сдал, а третий не сдал; 4. если четвертый сдал, то и первый сдал
ответ поясните. привести примеры
Читайте также
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут