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

Question

Информатика

Сергиян

19 июля, 13:02

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

+5

Ответы (1)

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

Митя · 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.