Задана последовательность неотрицательных целых чисел. требуется определить длину последовательности, завершающуюся первым встретившимся нолем (число 0 не входит в последовательность). входные данные входной файл input. txt содержит последовательность неотрицательных целых чисел, не превышающих значения 100. гарантируется, что во входных данных не более 100 чисел и среди них есть хотя бы одно число 0. выходные данные в выходной файл output. txt выведите целое число – длину последовательности. решите, на c++ или на pascal

Program arr_length; const   in_filename = 'input.txt';   out_filename = 'output.txt'; var   filein,fileout: textfile;   s,t: string; begin   writeln('загружаю входные ');   t : = '';   assignfile(filein, in_filename);   assignfile(fileout, out_filename);       reset(filein);       while not eof(filein) do           begin               readln(filein, s);               if (s = '0') then                         break               else                   t : = t + s;           end;       closefile(filein);       rewrite(fileout);       writeln(fileout, length(t));       closefile(fileout); end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

 

виды алгоритмов по способу записи 

1)текстовый

2)графический.

виды алгоритмов по последовательности исполнения шагов-команд

1)линейный

2)разветвляющийся