Найти сумму чисел от a до b, квадраты которых делятся на 7
Ответы на вопрос
Ответил petyaGavrikov
0
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
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
Ответил sashasharova15
0
Спасибо большое! Всё понятно и чётко расписано, а главное, что работает :)
Ответил petyaGavrikov
0
Пожалуйста.
Новые вопросы