Вопрос от пользователя: Доната
pascal
Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Ответ: Ангелин
Var a, b, c:integer;
Begin
readln (a, b);
If a>b then b:=b*2
else
If a
Вопрос от пользователя: Доната
pascal
Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Ответ: Ангелин
Var a, b, c:integer;
Begin
readln (a, b);
If a>b then b:=b*2
else
If a