Program m; var old, new: real; k,n,i: integer; begin repeat write('vvod posl n= '); readln(n) until n> 0; write('vvod x= '); readln(old); k: =0; for i: =2 to n do begin write('vvod x= '); readln(new); if new*old< 0 then k: =k+1; old: =new; end; if k> 0 then writeln('posledovatelnost menyaet znak ', k, ' raz') else writeln('posledovatelnost ne menyaet znak'); end.
Yevsyukov1697
11.11.2022
Var i, n, prev_n: integer; begin i : = 0; writeln('введите последовательность чисел,оканчивающихся 0'); repeat readln(n); if prev_n * n < 0 then i : = i + 1; prev_n : = n; until n = 0; writeln(i); end.