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