Борис
4 год назад
Пожалуйста посчитайте пожалуйста
ОТВЕТЫ
Fletcher Wilfrid
Oct 24, 2020
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.
405
Смежные вопросы:
