На языке Паскаль

Ввести 3 числа среди них найти наименьшее и вывести его.

Question

Информатика

Фирс

31 декабря, 19:41

На языке Паскаль

Ввести 3 числа среди них найти наименьшее и вывести его.

+3

Ответы (1)

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

Вадимыч · Answer 1

Var a, b, c:real;

begin

writeln ('vvedite a') ;

readln (a) ;

writeln ('vvedite b') ;

readln (b) ;

writeln ('vvedite c') ;

readln (c) ;

if a>b then

if b>c then writeln ('naimenshee=', c) else writeln ('naimenshee=', b)

else if a>c then writeln ('naimenshee=', c) else writeln ('naimenshee=', a) ;

end.

На языке ПаскальВвести 3 числа среди них найти наименьшее и вывести его.

На языке Паскаль

Ввести 3 числа среди них найти наименьшее и вывести его.