Помогите написать в Pascal.

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

Question

Меркул

14 декабря, 04:55

+2

Ответы (1)

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

Милия · 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.

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