Нати сумму чисел от а до в, квадраты которых делятся на 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
ГостьДумаю, что числа целые. Тогда может получиться так:
var a,b,s,i: integer;
begin
writeln('Введите два числа');
readln(a,b);
for i:=a to b do
if sqr(i) mod 7 = 0 then s:=s+i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы