Нати сумму чисел от а до в, квадраты которых делятся на 7 (паскаль)

Нати сумму чисел от а до в, квадраты которых делятся на 7 (паскаль)
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы