Дана последовательность из нулей и единиц. признаком окончания является число -1. определить количество максимально подряд ищущих нулей.-Решить на языке Pascal
Программа на языке Pascal, которая определяет количество максимально подряд идущих нулей в последовательности до числа -1:
program MaxSequenceOfZeros; var num, maxSeq, currentSeq: integer; begin maxSeq := 0; currentSeq := 0; repeat read(num); if num = 0 then begin currentSeq := currentSeq + 1; end else begin if currentSeq > maxSeq then maxSeq := currentSeq; currentSeq := 0; end; until num = -1; writeln('Максимальное количество подряд идущих нулей: ', maxSeq); end.
Эта программа считывает последовательность чисел, подсчитывает количество максимально подряд идущих нулей и выводит результат после ввода числа -1.
Программа на языке Pascal, которая определяет количество максимально подряд идущих нулей в последовательности до числа -1:
program MaxSequenceOfZeros;var
num, maxSeq, currentSeq: integer;
begin
maxSeq := 0;
currentSeq := 0;
repeat
read(num);
if num = 0 then
begin
currentSeq := currentSeq + 1;
end
else
begin
if currentSeq > maxSeq then
maxSeq := currentSeq;
currentSeq := 0;
end;
until num = -1;
writeln('Максимальное количество подряд идущих нулей: ', maxSeq);
end.
Эта программа считывает последовательность чисел, подсчитывает количество максимально подряд идущих нулей и выводит результат после ввода числа -1.