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

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

Задать свой вопрос
Гумизов Вован
В первом пт ошибка, так как всегда будет выводится ",,!!!!"
Элина
if (-5 < x)and(x < 5) then Write('!!!') else Write('???') - да разве ж всегда "!!!" ?
Софья Сенихина
Желая да, в условии "или", означает опечатка...
1 ответ
Var
   A:real;
Begin
Write('Введите число: ');ReadLn(A);
if Abs(A)lt;5 then WriteLn('!!!')
else WriteLn('???');
End.



Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b gt; 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.
Дымбрылов Тема
а для чего одинаково нужно
Aljona Adams
Для красы))
Anzhelika Prodchenko
очень забавно
Диана Берниц
но спасибо
Денис
так нормально сможете сказать зачем оно
Карина Евангулянц
Здесь знаки одинаково употребляются исключительно для вида. Для "прекрасного" ввода и вывода.
Генка Струбенников
спасибо т.е его не непременно писать
Лисник Леонид
Write('a = ');Write('b = ');" 'a - b = ', " снутри WriteLn('a - b = ',a-b)и " 'a + b = ', " снутри WriteLn('a + b = ',a+b)писать не обязательно
Надежда
Можно и так:Var a,b:real;BeginReadLn(A);ReadLn(B);if a*b > 0 then Write(a-b)else Write(a+b)End.
Тимур
спасибо)) добрый вы человек
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт