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

fgdh1waffeaf fgdh1waffeaf    1   27.02.2019 23:30    1

Ответы
coolgirl2007 coolgirl2007  23.05.2020 16:14

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика