Даны два числа. если эти числа неотрицательные, то найдите их сумму, иначе модуль разности

EugeneEugene007 EugeneEugene007    3   15.09.2019 23:10    0

Ответы
Sone4ka1111 Sone4ka1111  10.08.2020 20:49
// PascalABC.NET 3.3, сборка 1623 от 16.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите два числа:');
  if (a<0) and (b<0) then Writeln(Abs(a-b))
  else Writeln(a+b)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика