Информатика! Помогите!

Question

Информатика! Помогите! Заданы числа a и b. Определить, эти числа одного или разных знаков. На экране должно быть сообщение «числа одного знака» или «числа разных знаков» .

Answer 1

36

mariogal

25 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: