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

program zz1;

var p, i:integer;

begin

p:=1; / /задаем начальное значение произведению

for i:=1 to 13 do / /задаем цикл до тринадцати, перебираем все числа от 1 до 13

if i mod 3 = 0 then p:=p*i; / /проверяем, если число делится на три, то умножаем его на произведение

write ('произведение чисел кратных трем = ', p); / /выводим ответ

end.