Опубликовано 6 лет назад по предмету Информатика от Bestertts

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

Ответ

Ответ дан Alex24241

vara,b:integer;beginWriteln('Введите числа');Readln(a,b);If a*b>=0 then Writeln('DA') else Writeln('Net');end.
1. Ответ
  
  Ответ дан Alex24241
  
  Тогда там будет не >= , а прост>
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Нет, не "прост", потому что ввод обоих нулей не отработает.
3. Ответ
  
  Ответ дан Аккаунт удален
  
  Но автору вопроса это все, походу, пофигу ))))))
4. Ответ
  
  Ответ дан Alex24241
  
  А, точно)
5. Ответ
  
  Ответ дан Alex24241
  
  Хах, ну есть такое
Ответ

Ответ дан Аккаунт удален

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 12NET