Звучит : дана последовательность целых чисел, за которой следует ноль. определить, число соседств чисел с одинаковыми знаками. что нужно изменить в программе, чтобы выполнялось условие . program exapmle2; var x,y,k: integer; begin writeln('эта программа определяет, число соседств чисел с одинаковыми знаками'); write('введите число: '); read(x); y: =x; k: =0; while y< > 0 do begin if x*y< 0 then inc(k); if x*y> 0 then inc(k); y: =x; read(y); end; writeln(' число соседств ',k); writeln('нажмите enter для завершения работы программы'); readln; end.

sasockolowa    3   18.05.2019 10:30    0