цикл в Pascal

[Rimean]

Здравстуйте,неделю ломаю голову над задачей,хочу в ней разобраться,надеюсь на ваше содействие. "В последовательности чисел, вводимых с клавиатуры, определить количество чисел между двумя числами 6. Признак завершения ввода: второе число 6". Нельзя использовать массивы,программа должна быть простым циклом с условиями. Спасибо.

[Aleksandr H.]

var i, j, k: Integer;
begin
 k := 0;
 j := 0;
 repeat
   writeln('chislo: ');readln(i);
   if (i=6) then inc(k);
   if k>0 then inc(j);
 until k=2;
 writeln(j-2);
 readln;
 end.

[type_Oleg]

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

..неделю ломаю голову над задачей..программа должна быть простым циклом с условиями. Спасибо.

За неделю удалось узнать о существовании операторов repeat .. until и while ?

[Serge_Bliznykov]

так устроит?

var A, i : integer;
begin
  WriteLn('Вводите числа - завершение ввода: второе число 6');
  i:=0;
  repeat
     Read(A);
     if A=6 then begin
       if i=0 then {первая шестёрка} 
          begin A:=0; inc(i) end
     end
     else
       if i>0 then Inc(i);
  until A=6;
  WriteLn(i);
end.

[Rimean]

Спасибо,только счетчик выдает на одну единицу большее значение. но все равно ,большое спасибо,попробую найти,в чем дело,если получится)

[Rimean]

удалось,но тк я знакома с паскалем всего месяц,такая задача не оказалась посильной :с самой стыдно,если честно