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

Question

Информатика

Геннадий

2 ноября, 14:22

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

+5

Ответы (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.