Turbo Паскаль.Даны 2 числа.Определить какое из них наименьшее по абсолютному значению.
Turbo Паскаль.Даны 2 числа.Определить какое из них наименьшее по абсолютному значению.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы