В PascalABC дана последовательность целых чисел,в этой последовательности есть два нуля, располагаются они в разных местах, надо найти количество чисел стоящих между этими нулями.

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи можно использовать следующий код на языке PascalABC:

program CountNumbersBetweenZeros;
var
n, countZeros, countNumbersBetweenZeros, i: integer;
begin
countZeros := 0;
countNumbersBetweenZeros := 0;
writeln('Введите последовательность целых чисел:');
read(n);
while n <> 0 do
begin
if n = 0 then
countZeros := countZeros + 1
else if countZeros = 1 then
countNumbersBetweenZeros := countNumbersBetweenZeros + 1;
read(n);
end;
writeln('Количество чисел между двумя нулями: ', countNumbersBetweenZeros);
end.

Этот код считывает последовательность целых чисел, и при нахождении двух нулей подсчитывает количество чисел между ними. В конце программа выводит найденное количество чисел между нулями.