Sos!!!

[ssvetik]

Всем привет! помогите, пожалуйста решить задачку, ну очень надо! заранее благодарна.
Для заданного натурального числа n определить наименьшее число s, которое можно пред-ставить в виде суммы аn + bn по крайней мере двумя различными способами (a, b - нату-ральные числа; представления, отличающиеся лишь порядком слагаемых, различными не считаются).

[Хыиуду]

Задача тоже скорее математическая, чем программерская. Минимальное натуральное число, которое можно представить в виде суммы двух натуральных чисел с приведенными ограничениями - это 4 (2+2 или 3+1). Стало быть s=4n. Вот и все.

[somewhere]

AN + BN = (A+B)*N
Достаточно того, чтобы A + B > 3.
А+В = 2, А=1, В=1 - не удовлетворяет
А+В = 3, А=1, В=2; А=2, В=1; - не удовлетворяет
А+В = 4, А=1, В=3; А=2, В=2; - удовлетворяет
Следовательно минимальное s, которое можно представить в виде (AN+BN) по крайней мере 2-умя различными способами есть N*4, или S=N*4
N = 14
S = 56, (14*1 + 14*3) или (14*2 + 14*2)

[Хыиуду]

AN + BN = (A+B)*N

Мы, как всегда, синхронны

[Начинающая]

Помогите пож-та решить задачки....
1.Найти сумму элементов двумерного массива вещественных чиселс (15,15) расположенных на главной диагонали.
2.написать программу,которая перевернет введенное с клавиатуры слово.

[somewhere]

1. Элементы главной диагонали имеют координаты вида (х,х), отсюда

Код: Выделить всё

var  mas: array[1..15, 1..15] of Real;
      x :Integer;
      s : Real;
...
...
S := 0;
For x := 1 to 15 do s := s + mas[x,x];
Writeln(s);
...

2. Один из вариантов - не самый быстрый, но понятный.

Код: Выделить всё

var s, rs : String;
     x : Integer;
begin
Write('Input a word: ');
Readln(S);
rs := '';
If length(s) > 0 then
    For x:=Length(s) downto 1 do rs := rs + s[x];
Writeln(rs);
end.

[Начинающая]

спасибо большое!!!!