найти сумму кубов

@Bohgdan · Регистрация: 19.03.2010

Author24 — интернет-сервис помощи студентам

найти сумму кубов всех целых чисел от а до в (значение а и в вводится с клавиатуры, в>=а)

@Nyamo · 24.12.2010, 01:19

Pascal

var i,S,a,b :integer;
    allok :boolean;
begin
      write('vvedite a: ');
      readLn(a);
      repeat
      write('vvedite b(b>a): ');
      readLn(b);
      if b<a then writeLn('b doljno bit menshe 4em a!')
         else allok:=true;
      until allok;
 
      S:=0;
      For i:=a to b do
          S:=i*i*i+S;
writeLn('summa kubov ravna: ',S);
readLn;
end.

Не забудь сказать спасибо!

@Bohgdan 0 / 0 / 1 Регистрация: 19.03.2010 Сообщений: 17
		1
	найти сумму кубов 24.12.2010, 00:28. Показов 4428. Ответов 1 Метки нет (Все метки) найти сумму кубов всех целых чисел от а до в (значение а и в вводится с клавиатуры, в>=а) 0

	24.12.2010, 01:19

найти сумму кубов

Решение