1.найти произведение всех натуральных чисел, кратных - вопрос №33804681313 от mirnayanatulya 20.01.2021 10:01

Question

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

mirnayanatulya · Answer

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