Следующая программа должна определить, одинаковые или разные знаки у двух вводимых целых чисел. Определите какое сообщение выведется на экран, если хотя бы одно число из чисел будет равно нулю. Какие исправления нужно ввести в алгоритм, чтобы рассматривалась ситуация равенства нулю хотя бы одного из чисел?

Program znaki;

Var x, y: integer;

Begin writeln ('введите два числа') ;

Readln (x, y) ;

If x*y<0 then write ('числа разных знаков') ;

Else write ('числа одинаковых знаков') ;

End.

Question

Информатика

Доняша

20 октября, 02:56

Следующая программа должна определить, одинаковые или разные знаки у двух вводимых целых чисел. Определите какое сообщение выведется на экран, если хотя бы одно число из чисел будет равно нулю. Какие исправления нужно ввести в алгоритм, чтобы рассматривалась ситуация равенства нулю хотя бы одного из чисел?

Program znaki;

Var x, y: integer;

Begin writeln ('введите два числа') ;

Readln (x, y) ;

If x*y<0 then write ('числа разных знаков') ;

Else write ('числа одинаковых знаков') ;

End.

+5

Ответы (1)

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

Стелла · Answer 1

При наличии 0 в исходной программе программа отобразит, что числа " с одинаковыми знаками"

Нужно сделать еще один одну if, перед той, которая будет следить за этим:

Program znaki;

var x, y: integer;

begin

writeln ('введите два числа') ;

readln (x, y) ;

if (x0) and (y0) then

if x*y<0 then write ('числа разных знаков')

else write ('числа одинаковых знаков')

else write ('одно из чисел равно нулю') ;

end.