Program a2; var a,b,c,min:real; begin writeln('Введите три числа'); readln(a,b,c);...

Question

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

Comments

А)а=10,b=5 и с =1Б)а=10,b=5 и с =7В)а=2,b=10,с=5

---

все

---

так

---

сейчас исправлю

---

наверное b < min и c < min?

---

Program a2;var a,b,c,min:real;beginwriteln('Введите три числа');readln(a,b,c);min:=a;if b<min then min:=b end.

---

if c<min then min=c

---

теперь точно все

---

Добавил ниже

---

спасибо!

Answer 1

A: min =1;
Б: min =5
В: min =2
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if bif cwriteln('min= ' ,min);
end.