1. Найти произведение всех натуральных чисел, кратных 3 и меньших 13. Обратите внимание, что начальное значение Р=1.

2. Найти количество натуральных чисел, нечет

Question

Кельтск

28 августа, 08:01

+2

Ответы (1)

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

Зорина · Answer 1

Var

i, p:integer;

begin

p:=1;

for i:=1 to 13 do

if i mod 3 = 0 then

p:=p*i;

writeln ('Произведение = ', p);

end.

1. Найти произведение всех натуральных чисел, кратных 3 и меньших 13. Обратите внимание, что начальное значение Р=1.2. Найти количество натуральных чисел, нечет