1.Найти произведение всех натуральных чисел, кратных 3 и меньших 13. Обратите внимание, что начальное значение Р=1.
2.Найти количество натуральных чисел, нечет
Ответ
Автор - fikort
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.