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

Question

Информатика

Дианка

27 мая, 23:49

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

+4

Ответы (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.