Составить программу вычисления произведения чисел - вопрос №8882124150013 от prokop228 30.12.2020 18:34

Question

Информатика: Составить программу вычисления произведения чисел от 1 до 500 кратных 13

prokop228 · Answer

Var sum,i:integer;    beginfor i:=1 to 500 do    if (i mod 13 =0) then sum:=sum+i;writeln(sum);end....