Question

В последовательности чисел, вводимых с клавиатуры, определить количество чисел между двумя числами 3. Признак завершения ввода: второе
число 3.

Answer 1

##

var t: integer;

repeat

 Read(t)

until t = 3;

var k := 0;

while True do

begin  

 Read(t);

 if t = 3 then break;

 k += 1

end;

Print(k)