Даны два числа a и b. Удвоить меньшее из них.

Даны два числа a и b. Удвоить меньшее из них.
Гость
Ответ(ы) на вопрос:
Гость
var a, b, k : integer; begin writeln ('text'); readln (a); writeln ('text1'); readln (b); if (a>b) then k:=b*2 else k:=a*2; writeln (k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы