Составьте программу вычисления суммы кратных чисел - вопрос №450878871 от matetskayamilan 17.05.2020 10:49

Question

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

matetskayamilan · 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....