СРОЧНО!!!
ПАСКАЛЬ.
Даны 3 числа.Все отрицательные среди них числа заменить их модулем и снова вывести все числа.
ПАСКАЛЬ.
Даны 3 числа.Все отрицательные среди них числа заменить их модулем и снова вывести все числа.
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
begin
var (a, b, c) := ReadReal3('Введи a, b, c;');
if a < 0 then a := -a;
if b < 0 then b := -b;
if c < 0 then c := -c;
Println(a, b, c);
end.
На самом деле нет нужды в проверке знака, можно было для всех трех чисел написать по типу a := Abs(a);