1.найти произведение всех натуральных чисел, - вопрос №33804681313 от mchermakov17 27.06.2020 20:02

Question

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

mchermakov17 · Answer

Vari,p:integer;beginp:=1;for i:=1 to 13 doif i mod 3 = 0 then p:=p*i;writeln( Произведение = ,p);end....