Напишите программу которая выводит на экран : min (a, b)

min-минимальное значение

По теме программы паскаль точнее турбо паскаль

Question

Информатика

Артур

18 декабря, 01:56

Напишите программу которая выводит на экран : min (a, b)

min-минимальное значение

По теме программы паскаль точнее турбо паскаль

+4

Ответы (1)

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

Феогния · Answer 1

Program programma;

Uses crt;

var a, b, min: real;

Begin clrscr;

write ('Введите a = ') ;

readln (a) ;

write ('Введите b = ') ;

readln (b) ;

if a>b then

min:=b

else

begin

if a
min:=a;

if a=b then

write ('a и b равны') ;

end;

write ('Min = ', min) ;

readln;

End.

Напишите программу которая выводит на экран : min (a, b)min-минимальное значениеПо теме программы паскаль точнее турбо паскаль

Напишите программу которая выводит на экран : min (a, b)

min-минимальное значение

По теме программы паскаль точнее турбо паскаль