Помогите с задачами 1) вводим число с клавиатуры если оно больше -5 или меньше 5 то...

Question

Помогите с задачами
1) вводим число с клавиатуры если оно больше -5 или меньше 5 то вывести на экран ,,!!!!'' иначе ,,???''
2)вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму

Comments

В первом пункте ошибка, так как всегда будет выводится ",,!!!!"

---

if (-5 < x)and(x < 5) then Write('!!!') else Write('???') - да разве ж всегда "!!!" ?

---

Хотя да, в условии "или", значит опечатка...

Answer 1

Var
   A:real;
Begin
Write('Введите число: ');ReadLn(A);
if Abs(A)<5 then WriteLn('!!!')<br>else WriteLn('???');
End.



Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.

Comments

а зачем равно нужно

---

Для красоты))

---

очень смешно

---

но спасибо

---

так нормально можете сказать зачем оно

---

Тут знаки равно используются исключительно для вида. Для "красивого" ввода и вывода.

---

спасибо т.е его не обязательно писать

---

Write('a = ');
Write('b = ');
" 'a - b = ', " внутри WriteLn('a - b = ',a-b)
и " 'a + b = ', " внутри WriteLn('a + b = ',a+b)
писать не обязательно

---

Можно и так:
Var a,b:real;
Begin
ReadLn(A);
ReadLn(B);
if a*b > 0 then Write(a-b)
else Write(a+b)
End.

---

спасибо)) добрый вы человек