• Вопрос по информатике:

    Напишите программу в PASCAL, используя while do

    Даны действительные числа x, y. Найти сумму кубов всех целых чисел, расположенных между х и у, а также количество этих чисел.

    • Автор:

      billy
  • Uses Crt; var x,y,n,s:longint; i:integer; begin write('x='); read(x); write('y='); readln(y); s:=0; n:=0; for i:=x+1 to y-1 do begin s:=s+sqr(i)*i; inc(n); end; writeln('summ=',s,' kol-vo=',n); end.

    • Отвечал:

      darwinaep4
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска