Question

Пожалуйста помогите... Составить программу удвоения меньшего из двух чисел. ​

Answer 1

var

 a,b: real;

begin

readln(a,b);

if a<b then a:=2*a else if b<a then b:=2*b;

write(a,' ',b);

end.

Answer 2

а, что в окне вывода написать?

Answer 3

для проверки

Answer 4

какие числа?

Answer 5

Зайди пожалуйста в профиль и ответь на вопрос