program a2;
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b if c writeln('min=',min)
end.КАК РЕШАТЬ???????????????
А)а=10,b=5 и с =1
Б)а=10,b=5 и с =7
В)а=2,b=10,с=5
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b if c writeln('min=',min)
end.КАК РЕШАТЬ???????????????
А)а=10,b=5 и с =1
Б)а=10,b=5 и с =7
В)а=2,b=10,с=5
More Questions From This User See All
Answers & Comments
Б: min =5
В: min =2
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min= ' ,min);
end.