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

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

Question

Романа

17 июля, 04:28

+3

Ответы (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. Найти количество натуральных чисел, нечет