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

Question

Информатика

Зяйняп

23 июня, 19:24

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

+4

Ответы (1)

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

Ревкат · Answer 1

var a, b:real;

begin

writeln ('Введите 2 числа') ;

readln (a, b) ;

if a > b then

begin

b : = b * 10;

writeln ('Число: 'b) ;

end

else

begin

a : = a * 10;

writeln ('Число: ', a) ;

end;

end.