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

Question

Помоги очень прошу
вводим с клавиатуры число ,если оно меньше -5 или больше 5 вывести на экран символ ,,$'' иначе,,@''

Comments

Вы правильно условие переписали? "оно меньше -5 или больше 5" - тут точно "или" стоит, а не "и" ?

Answer 1

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

Comments

а можете еще помочь вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму