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

Question

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

Comments

А на Паскале писать или как?

Answer 1

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.

Comments

begin
write (2*min(readinteger('a ='), readinteger('b =')))
end.