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

Question

Информатика

Валюся

26 июня, 06:37

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

+2

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