Ответы
Ответ дал:
0
program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s:=0;
for i:= a to b do
s:=s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад