больше меньше оператор if then

[Scorch92]

АААА!!! привет народ! блин елки палки, тут программку задали написать, вроде знаю как писать даже знаю ЧТО писать, но в этих БОЛЬШЕ МЕНЬШЕ вааще запутался(((
"Даны действительные числа a,b,c,d Если a<=b<=c<=d то каждое число заменить наибольшим из них , если a>b>c>d то числа оставить без изменений. в противном случаевсе числа заменить квадратами"

[Valio]

If (a<=b<=c<=d) Then
 Begin
  (каждое число заменить наибольшим из них)
 End
Else
 Begin
  If (a.b.c.d) Then
   Begin
    (числа оставить без изменений)
   End
  Else
   Begin
     (числа заменить квадратами)  
   End;
 End;

Вот тебе так сказать скелет. Нужно указать только "условия" и организовать нужные действия.

[Niro]

Если a<=b<=c<=d

Ну это понятно

a.b.c.d

А это вообще что?

[Блуд]

if (a<=b)and(b<=c)and(c<=d) then
   begin
        a:=d;b:=d;c:=d;
   end
else
   begin
   if not((a<b)and(b<c)and(c<d))then
   begin
    a:=sqr(a);b:=sqr(b);c:=sqr(c);d:=sqr(d) ;//ошибся немного,тут sqr
   end;
  
   end;

как то так

[Scorch92]

))0спасиба большое)) там в начале я скорее всего не так написал, там надо было заменить наибольшим ИЗ НИХ наверное тоисть из всех... да ладно на этом ААГГГРООООМНЕ ПАСИБО!))) респект вам и уважуха)))