Turbo Паскаль. Даны 2 числа. Определить какое из них наименьшее по абсолютному значению.

Question

Информатика

Евномия

22 августа, 01:39

Turbo Паскаль. Даны 2 числа. Определить какое из них наименьшее по абсолютному значению.

+1

Ответы (1)

Знаете ответ?

Ируся · Answer 1

Program al;

var a, b:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

if abs (a) >abs (b)

then

writeln ('naimensee=', b)

else

writeln ('naimensee=', a) ;

readln;

end.