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

Question

Информатика

Лебния

13 июля, 13:12

Найти произведение всех двухзначных нечетных натуральных чисел с помощью 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.