[Hannibal]

y={1,если a<b<c
2,если a=b=c
3,если b<a<c
4,если c<a<b
0,в других случаях
Все это одна система.Решить с оператором if и case

[Uniq!]

3,если b<a<c
4,если b<a<c

фигня написана

Код:

var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;
if (c<a) and (a<b) then then y:=4;

Label1.Caption1:=IntToStr(y);
end;

С case сам, на примере if

[Hannibal]

Сообщение от Uniq!

3,если b<a<c
4,если b<a<c

фигня написана

у меня так в книге записано может опечатка

[Uniq!]

последнее скорее всего c<a<b : 4

поправлю код сверху

[Hannibal]

Сообщение от Uniq!

3,если b<a<c
4,если b<a<c

фигня написана

Код:

var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text;

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;

Label1.Caption1:=IntToStr(y);
end;

С case сам, на примере if

мне кучу ошибок выбило undeclered identifier 'edit1' и т.д.

[Uniq!]

о Господи )
на чём пишем? Delphi ?)

621139три9три - пиши расскажу чё да как)
Бедняги студенты

[Hannibal]

ну да

[Hannibal]

Сообщение от Uniq!

о Господи )
на чём пишем? Delphi ?)

621139три9три - пиши расскажу чё да как)
Бедняги студенты

а если не секрет это чего номер?

[Uniq!]

ой мамочки)
дивитизнак icq