С клавиатуры вводятся x, y и z. Вывести на экран удвоенное наименьшее из них.

Question

Информатика

Костюня

28 сентября, 09:35

С клавиатуры вводятся x, y и z. Вывести на экран удвоенное наименьшее из них.

+5

Ответы (1)

Знаете ответ?

Юрьич · Answer 1

Var x, y, z, min:integer;

begin

writeln ('x, y, z:') ;

readln (x, y, z) ;

if x
if z
writeln ('Удвоенное наименьшее = ',2*min) ;

end.

Пример:

x, y, z:

24 15 31

Удвоенное наименьшее = 30