Написать программу для нахождения значения переменной S по формуле

@Olga803 · Регистрация: 24.11.2014

5. Написать программу для нахождения значения переменной S по формуле: S=1*1*1+2*2*2+...+n*n*n

@Samhain · 28.11.2014, 13:43

Olga803,

Pascal

var i,n,s:integer;
begin
  write('n = ');readln(n);
  s:=0;
  for i:=1 to n do
    s:=s+i*i*i;
  writeln('s = ',s);
  readln
end.

@APALoff · 28.11.2014, 15:30

Pascal

Function MulPlus(N : Byte) : Longint;
Begin
  If N>0 then MulPlus:=N*N*N+MulPlus(N-1) else MulPlus:=0;
end;

@Olga803 · 01.12.2014, 21:19 **[ТС]**

Samhain и APALoff, спасибо Вам огромное!!!

@Olga803 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 19
		1
	Написать программу для нахождения значения переменной S по формуле 27.11.2014, 21:28. Показов 5950. Ответов 3 Метки нет (Все метки) 5. Написать программу для нахождения значения переменной S по формуле: S=111+222+...+nnn 0

@Olga803 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 19
	01.12.2014, 21:19 [ТС]	4
	Samhain и APALoff, спасибо Вам огромное!!! 0

Опции темы