Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.

Question

Информатика

Вадиша

13 июня, 17:45

Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.

+5

Ответы (2)

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

Стратбник · Answer 1

var

a, b:real;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

if abs (a) > b then

a : = a / 5;

writeln;

writeln ('a = ', a) ;

writeln ('b = ', b) ;

writeln;

end.

Корнейка · Answer 2

var

a, b : real;

begin

read (a, b) ;

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

writeln (a, ' ', b) ;

end.