Найти сумму чисел от a до b, квадраты которых делятся ** 7

Question

Найти сумму чисел от a до b, квадраты которых делятся на 7

Answer 1

Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
 if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.

Пример:
a = 1
b = 30
s = 70

Comments

Спасибо большое! Всё понятно и чётко расписано, а главное, что работает :)

---

Пожалуйста.