Даны два числа. если эти числа неотрицательные, то - вопрос №8537796 от zaporozkayaoks 10.01.2022 23:58

Question

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

zaporozkayaoks · Answer

// 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.