Найти произведение всех двухзначных нечетных натуральных чисел с помощью ABC Паскаль

Question

Информатика

Прокоп

10 ноября, 02:22

Найти произведение всех двухзначных нечетных натуральных чисел с помощью ABC Паскаль

+2

Ответы (1)

Знаете ответ?

Камилл · Answer 1

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.