задача на поиск среди чисел первого положительного, (с помощью цикла) Опции

[18192123]

пользователь вводит последовательнось целых чисел, признак окончания ввода - 0. Найти первый положительный член, равный сумме трех предыдущих.

[klem4]

Все, понял

uses crt;
var
  x, x1, x2, x3, s : Integer;
  count: Integer;
  find: Integer;

begin
  clrscr;
  count := 0;
  find := -maxint;
  repeat
    write('x = '); readln(x);
    inc(count);
    case count of
       1: x1 := x;
       2: x2 := x;
       3: x3 := x;
      else
       if (x > 0) and (x1 + x2 + x3 = x) and (find = -maxint) then find := x
        else begin
          x1 := x2;
          x2 := x3;
          x3 := x;
        end;
    end;
  until (x = 0);

  if find <> -maxint then writeln('Find = ', Find)
   else writeln('Not find');

  readln;
end.

[18192123]

Все, понял

скажи пожалуйста, что такое find := -maxint в твоей программе
и что такое count?

Сообщение отредактировано: volvo - 2.11.2006 12:55