найти сумму кубов всех целых чисел из диапозона: от а до в,где а меньше либо равно в

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-05-04T18:56:42+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.