Составьте программу вычисления суммы кратных чисел - вопрос №714509188 от Jimitapark8 23.04.2022 09:05

Question

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

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