Question

Pascal ABC
Составить программу.
С клавиатуры вводится 3 числа. Найти наибольшее ПО МОДУЛЮ.

Answer 1

var a,b,c:integer;

begin

readln (a,b,c);

if (abs(a)>abs(b)) and (abs(a)>abs(c)) then writeln('Наибольшее по модулю число a');

if (abs(b)>abs(a)) and (abs(b)>abs(c)) then writeln('Наибольшее по модулю число b');

if (abs(c)>abs(a)) and (abs(c)>abs(b)) then writeln('Наибольшее по модулю число c')

end.