Написать программу. Даны два числа а и б, наибольшее из них умножить на 10, а наименьшее разделить на 10

Question

Информатика

Пете

7 октября, 23:30

Написать программу. Даны два числа а и б, наибольшее из них умножить на 10, а наименьшее разделить на 10

+1

Ответы (1)

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

Минодора · Answer 1

Var a, b: Real;

begin

writeln ('Введите a и b') ;

readln (a, b) ;

if a>b then

begin

a:=a*10;

b:=b/10;

end;

if a
begin

b:=b*10;

a:=a/10;

end;

if a=b then

begin

b:=b*10;

a:=a*10;

end;

writeln ('a: ', a) ;

writeln ('b: ', b) ;

end.