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

Question

Людуша

17 октября, 05:46

+3

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