Интересуют любые вариации ниже приведенного задания!Задание по консоле.

Дана последовательность целых чисел ai. Построить новую последовательность,
состоящую из тех элементов, которые больше суммы двух предыдущих.
Начинать построение новой последовательности с третьего элемента.

Вход
В каждой строке входа дано по одному элементу исходной последовательности.
Признак конца последовательности - 0.
Выход
В каждую строку выхода вывести по одному элементу результирующей
последовательности. Заключительный нуль в результат не выводить.

Пример

Код

Вход: 1 4 7 2 7 10 3 0 Выход: 7 10

Это сообщение отредактировал(а) oksancik - 24.12.2004, 18:47

Если бы мне не надо бьло на электричку выходить я бы тебе написал Это же не так сложно.

Мне на электричку не надо =)

Код

program Zadacha; {$APPTYPE CONSOLE} uses Classes, SysUtils; var  InList: TStringList;  Line: String;  x, Item1, Item2, Item: Integer; begin InList := TStringList.Create; Repeat  ReadLn (Line);  if Line <> '0' then InList.Add (Line); Until Line = '0'; for x := 2 to InList.Count-1 do  begin   Item := StrToInt (InList[x]);   Item1 := StrToInt (InList[x-1]);   Item2 := StrToInt (InList[x-2]);   if Item > Item1+Item2 then WriteLn (Item);  end; Readln; FreeAndNil (InList); end.

Спасибо. Только нельзя это по легче написать, а то я не всё понимаю и не знаю еще столько
Конкретно это:

Я приехал

Так тебе с файлома или с массивами надо делать?

Var
A,B:array of integer;
i:integer;
begin
setlength(b,0);
setlength(A,8);
a[0]:=1;
a[1]:=4;
a[2]:=7;
a[3]:=2;
a[4]:=7;
a[5]:=10;
a[6]:=3;
a[7]:=0;

for i:=2 to length(a)-1 do
if a[i]>a[i-1]+a[i-2] then
begin
setlength(b,length(b)+1);
b[length(b)-1]:=a[i];
end;
end;
// вывод сам напишешь?

Bes а если элементов больше чем 8?! и вообщето по условию (насколько я понял) числа не даны изначально, их вводит юзер, соотвтственно если через TStrings работать нельзя то наверно надо будет поступить таким образом:

Код

Var InList:Array of Integer; ... Repeat ReadLn (Line); if Line <> '0' then   begin     SetLength (InList, Length (InList) + 1);    InList[Length (InList) - 1]:=Line;   end; Until Line = '0';

Цитата(oksancik @ 24.12.2004, 20:24)

Спасибо. Только нельзя это по легче написать, а то я не всё понимаю и не знаю еще столько

можно и полегче, например так: InList.Free;

2nJIaKca.spb:
Ну ясен пень. просто написал принцип вычисления а уж ввод-вывод... по крайней мере в вопросе не спрашивалось.
А причем тут TStrings?

Мммм.... понятно. (не буду зарабатывать себе "звездочек" - отредактирую это :-) )

Это сообщение отредактировал(а) Bes - 28.12.2004, 11:54

Да притом что уж очень это похоже на школьный экзамен=) а там наврядли воспримут решение через TStrings, а если говорить про принцип вычисления, то я его уже давно тут написал