Составьте программу вычисления суммы кратных чисел - вопрос №450878871 от hollok 02.03.2020 02:28

Question

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

hollok · Answer

Var  sum, i : Integer;Begin  sum:=0;  For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;  Writeln(sum);end....