Страница 1 из 1
Sos!!!
Добавлено: 11 апр 2007, 10:35
ssvetik
Всем привет! помогите, пожалуйста решить задачку, ну очень надо! заранее благодарна.
Для заданного натурального числа n определить наименьшее число s, которое можно пред-ставить в виде суммы аn + bn по крайней мере двумя различными способами (a, b - нату-ральные числа; представления, отличающиеся лишь порядком слагаемых, различными не считаются).
Re: Sos!!!
Добавлено: 11 апр 2007, 10:45
Хыиуду
Задача тоже скорее математическая, чем программерская. Минимальное натуральное число, которое можно представить в виде суммы двух натуральных чисел с приведенными ограничениями - это 4 (2+2 или 3+1). Стало быть s=4n. Вот и все.
Re: Sos!!!
Добавлено: 11 апр 2007, 10:48
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)
Re: Sos!!!
Добавлено: 11 апр 2007, 10:51
Хыиуду
somewhere писал(а):AN + BN = (A+B)*N
Мы, как всегда, синхронны
Re: Sos!!!
Добавлено: 16 апр 2007, 15:51
Начинающая
Помогите пож-та решить задачки....
1.Найти сумму элементов двумерного массива вещественных чиселс (15,15) расположенных на главной диагонали.
2.написать программу,которая перевернет введенное с клавиатуры слово.
Re: Sos!!!
Добавлено: 16 апр 2007, 16:14
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.
Re: Sos!!!
Добавлено: 16 апр 2007, 18:01
Начинающая
