1.Найти произведение всех натуральных чисел, кратных 3 и меньших 13. Обратите внимание, что начальное значение Р=1.
2.Найти количество натуральных чисел, нечет
2.Найти количество натуральных чисел, нечет
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i,p:integer;
begin
p:=1;
for i:=1 to 13 do
if i mod 3 = 0 then
p:=p*i;
writeln('Произведение = ',p);
end.