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

Ответы:

Anzhela Melnichenko

13-01-2014 12:43

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ТОЛИК МАТВЕЕВ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу вычисления суммы кратных чисел 7 в диапазоне от 1 до 100» от пользователя ТОЛИК МАТВЕЕВ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!