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

Question

Информатика

Памфил

22 июля, 10:50

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

+4

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