Даны три неравных числа, вывести меньшее из них (программа).

Question

Информатика

Елизаветка

12 мая, 12:18

Даны три неравных числа, вывести меньшее из них (программа).

+4

Ответы (1)

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

Настя · Answer 1

Var

a, m:real;

Begin

Write ('a = ') ;

ReadLn (m) ;

Write ('b = ') ;

ReadLn (a) ;

if a
Write ('c = ') ;

ReadLn (a) ;

if a
WriteLn ('Меньшее из данных чисел: ', m) ;

End.