Найти значение суммы

@Милые девчата · Регистрация: 11.10.2015

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

Пользователь вводит целое положительное число n. Найти значение суммы
1^1 + 2^2 + 3^3 + ... + n^n
Вывести на экран таблицу всех значений суммы, которые не выходят за пределы
диапазона типа longint.

@Cyborg Drone · 02.11.2015, 22:33

Pascal

var n, i, j, s, p: integer;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  s := 0;
  for i := 1 to n do
    begin
      p := 1;
      for j := 1 to i do p := p * i;
      if 2147483647 - s >= p
        then begin
          s := s + p;
          writeln(i:2, ':', s:11)
        end
        else break
    end;
  readln
end.

@Милые девчата 0 / 0 / 0 Регистрация: 11.10.2015 Сообщений: 12
		1
	Найти значение суммы 01.11.2015, 02:41. Показов 1457. Ответов 1 Метки нет (Все метки) Пользователь вводит целое положительное число n. Найти значение суммы 1^1 + 2^2 + 3^3 + ... + n^n Вывести на экран таблицу всех значений суммы, которые не выходят за пределы диапазона типа longint. 0

	02.11.2015, 22:33

Найти значение суммы

Решение