найти произведение всех двухзначных нечетных натуральных чисел с помощью ABC Паскаль
10-11 класс
|
var
i: integer;
p: double;
begin
i := 11; p := 1;
while(i <= 99) do
begin p := p * i; i := i + 2 end;
Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.
Результаты решения:
Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75
Точный ответ: 2884012846297068257122447878731130828879149556133125305538972299939794921875
var
i, p: longint;
begin
p := 1;
for i:=10 to 99 do
if (i mod 2)<>0 then p := p * i;
Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.
Другие вопросы из категории
Заранее спасибо)
Читайте также
(A < B). Найти произведение всех целых чисел от A до B
включительно.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.