Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Следующая программа должна определить, одинаковые или разные знаки у двух вводимых целых чисел. Определите какое сообщение выведется на экран, если хотя бы одно число из чисел будет равно нулю. Какие исправления нужно ввести в алгоритм, чтобы рассматривалась ситуация равенства нулю хотя бы одного из чисел?
Program znaki;
Var x,y: integer;
Begin writeln(‘введите два числа’);
Readln(x,y);
If x*y<0 then write (‘числа разных знаков’);
Else write(‘числа одинаковых знаков’);
End.

Ответ оставил Гость

При наличии 0 в исходной программе программа отобразит, что числа " с одинаковыми знаками"
Нужно сделать еще один одну if, перед той, которая будет следить за этим:

Program znaki;
var x,y: integer;
begin
writeln(введите два числа);
readln(x,y);
if (x<>0) and (y<>0) then 
if x*y<0 then write (числа разных знаков)    
else write(числа одинаковых знаков) 
else write(одно из чисел равно нулю);
end.