исправте прогу...

[Оксаночка:)]

прога должна искать минимальное из трех чисел

program y;
var a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);

if a < b then
  a := b;
if a > c then
  a := c;

writeln ('min =  ',a);

end.

[MyLastHit]

if a < b then
b := a;

if a > c then
c := a;


делов та!

[Оксаночка:)]

не не правильно....хотя......а что выводить ???

[Оксаночка:)]

program y;
var a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);

if a < b then
b := a;

if a > c then
c := a;

writeln ('min =  ',c);

end.

[Оксаночка:)]

так ??????????

[Базиля]

Оксаночка
нет, не правильно. Вот исправил все что нужно:

program y;
var min,a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);
min:=a;
if min>b then
min:=b;
if min>c then
min:=c;
if min>b then
min:=b;
writeln('минимальное из трех чисел = ',min);
end.

[Базиля]

Я тут прочитал в одной из твоих тем что по условию твоей задачи можно использовать только два условных оператора. Держи, переправил, просто написала бы сразу в первом посте об этом.

program y;
var min,a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);
min:=a;
if min>b then
min:=b;
if min>c then
min:=c;
writeln('минимальное среди 3 чисел = ',min);
end.

[MyLastHit]

Почему эт неправильно?????

program y;
var a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);

if a < b then
b := a;

if a > c then
c := a;

writeln ('min = ',a);

end.

[Базиля]

MyLastHit

if a < b then
b := a;

if a > c then
c := a;

writeln ('min = ',a);

Исходные данные:
5 4 6
минимальное выведет 5 т.к. A<B нет, A>C нет
вывод числа а... это 5 а минимальное то 4


Исходные данные 6 5 4
минимальное выведет 6 т.к. a<b нет, a>c нет.

В общем при любых данных он будет выводить минимальное, первое веденное число т.е. а

[Alex_FF]

if a < b then
    if c < a then min := c else min := a;
else
    if c < b then min := c else min := b;