Question

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

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.

Answer 2

fikort а это точно так решается просто у нас в учебнике такого нету

Answer 3

а что написано в учебнике?

Answer 4

там написано do это делать, while это пока, loop это петля, а такого что вы написали нету

Answer 5

возможно там используется другой цикл

Answer 6

может быть, у учителя спрошу