составить программку определяющую однообразный ли символ у 2-ух данных чисел. Ответ

Составить программу определяющую однообразный ли символ у 2-ух данных чисел. Ответ должен быть в виде: DA / NET

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел два числа');
  if Sign(a)=Sign(b) then Writeln('DA') else Writeln('NET')
end.

Пример
Введите через пробел два числа -345.43 12
NET
Var
a,b:integer;
begin
Writeln('Введите числа');
Readln(a,b);
If a*bgt;=0 then Writeln('DA') else Writeln('Net');
end.
Егор Саин
Хрпошо, сообразил
Вадим Ризоев
Тогда там будет не >= , а прост>
Ярослава Шарафуддинова
А, точно)
Василиса Витошкина
Хах, ну есть такое
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт