Массивы..

[islaminside]

Помогите пожалуйста! Нужно решить задачу без МАССИВОВ =( .
Даны целые числа с1,..,с95. Имеются ли в последовательности с1,..,с95: три идущих подряд нулевых члена?

[weech]

var
c,i:integer;
s:string;
begin
for i:=1 to 95 do
    begin
    readln(c);
    s:=s+','+IntToStr(c);
    end;
if Pos('0,0,0',s)<>0
   then
   writeln('Yes')
   else
   writeln('No');
   end.

[islaminside]

спасибо. а если я буду с окна Edit вводит то тогда как ?

[weech]

Сообщение от islaminside

спасибо. а если я буду с окна Edit вводит то тогда как ?

Точно ж... Это делфи


Вот это в обработчик 1-ой кнопки(подразумевается ввод в эдит числа, нажатие кнопки, очищение эдита и все по новой, пока не будут введены все числа):

    s:=s+','+IntToStr(Edit1.Text);
    Edit1.Text:='';

А это в обработчик другой кнопки, можно назвать ее *Проверить*, например:

    
if Pos('0,0,0',s)<>0
   then
   ShowMessage('Yes')
   else
   ShowMessage('No');
   end.

[kta87]

s:= IntToStr(Edit1.Text);

[islaminside]

АГА СПАСИБО!!!