Составьте программу вычисления суммы кратных чисел - вопрос №711004509013 от jykov2000 04.07.2022 11:34

Question

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

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