Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.

Question

Пануля

28 сентября, 17:43

+2

Ответы (2)

Знаете ответ на вопрос?

Веденей · Answer 1

Var a, b:real;

begin

readln (a, b) ;

if (abs (a) >b) or (b<0) then

begin

a:=a/5;

writeln (a,' ', b)

end

else

writeln (a,' ', b) ;

end.

Данилыч · Answer 2

Program chik;

var a, b:real;

begin

readln (a, b) ;

if (abs (a) >abs (b)) or (b<0) then a:=a/5;

writeln (a:1:3) ;

writeln (b:1:3) ;

end.