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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.