Make a program for finding the sum of numbers from 100 to 200 divisible 7.

univerkov | November 19, 2020 | education

Pascal

Var s, i: integer;
Begin
S: = 0;
for i: = 100 to 200 do
if i mod 7 = 0 then s: = s + i;
writeln (‘Summa =’, s);
readln;
End.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.