Помогите пожалуйста
Приложения:
Ответы на вопрос
Ответил Evelyn7
0
var a,b,i,h,s:integer;
begin
read(a,b);
for i:=a to b do
begin
h:=SQR(i);
s:=s+h;
end;
write(s);
end.
begin
read(a,b);
for i:=a to b do
begin
h:=SQR(i);
s:=s+h;
end;
write(s);
end.
Новые вопросы