Задание звучит:

Дана последовательность целых чисел, за которой следует ноль. Определить, число соседств чисел с одинаковыми знаками.

Что нужно изменить в программе, чтобы выполнялось условие задачи.

Program exapmle2;

var x, y, k:integer;

begin

writeln ('Эта программа определяет, число соседств чисел с одинаковыми знаками') ;

write ('Введите число:') ;

read (x) ;

y:=x;

k:=0;

while y0 do

begin

if xy<0 then inc (k) ;

if xy>0 then inc (k) ;

y:=x;

read (y) ;

end;

writeln (' Число соседств ', k) ;

writeln ('нажмите Enter для завершения работы программы') ;

readln;

end.

Question

Информатика

Сеня

25 августа, 15:08

Задание звучит:

Дана последовательность целых чисел, за которой следует ноль. Определить, число соседств чисел с одинаковыми знаками.

Что нужно изменить в программе, чтобы выполнялось условие задачи.

Program exapmle2;

var x, y, k:integer;

begin

writeln ('Эта программа определяет, число соседств чисел с одинаковыми знаками') ;

write ('Введите число:') ;

read (x) ;

y:=x;

k:=0;

while y0 do

begin

if xy<0 then inc (k) ;

if xy>0 then inc (k) ;

y:=x;

read (y) ;

end;

writeln (' Число соседств ', k) ;

writeln ('нажмите Enter для завершения работы программы') ;

readln;

end.

+2

Ответы (1)

Знаете ответ на вопрос?

Казимира · Answer 1

Program exapmle2;

var x, y, k:integer;

begin

writeln ('Эта программа определяет, число соседств чисел с одинаковыми знаками') ;

write ('Введите число:') ;

read (x) ;

y:=x;

write ('Введите число:') ; / / добавить эти 2 строки

read (x) ;

k:=0;

while x0 do / / поменять у на х

begin

//if x*y<0 then inc (k) ; убрать эту строку

if x*y>0 then inc (k) ;

y:=x;

read (x) ; / / изменить у на х

end;

writeln (' Число соседств ', k) ;

writeln ('нажмите Enter для завершения работы программы') ;

readln;

end.