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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
