Задание:
Информатика! Помогите! Заданы числа a и b. Определить, эти числа одного или разных знаков. На экране должно быть сообщение «числа одного знака» или «числа разных знаков» .
Решение:
Program abc; var a,b: real; beginwriteln ('введите а'); readln (a); writeln ('введите b'); readln (b); if a<0 and b<0 then writeln ('числа одного знака'); if a>0 and b>0 then writeln ('числа одного знака'); if a<0 and b>0 then writeln ('числа разных знаков'); if a>0 and b<0 then writeln ('числа разных знаков'); readln; end.
Знаете другой ответ?