Напишите программу которая выводит на экран :min (a,b)
min-минимальное значение
По теме программы паскаль точнее турбо паскаль
min-минимальное значение
По теме программы паскаль точнее турбо паскаль
More Questions From This User See All
Answers & Comments
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<b then
min:=a;
if a=b then
write('a и b равны');
end;
write('Min = ', min);
readln;
End.