Quote (andrenalin)
Помогите решить задачи, по темам "Разветвления" и "Простейшая целочисленная арифметика"
45.Даны действительные числа a, b, c, d. Если a≤ b ≤ c ≤ d, то
каждое число заменить наибольшим из них; если a>b>c>d, то оставить
без изменения; в противном случае все числа заменяются их
квадратами.
var
a,b,c,d:integer;
if(a<=b)and(b<=c)and(c<=d) then begin
if (a>b)and(a>c)and(a>d) then begin b:=a;c:=a;d:=a;end;
if (b>a)and(b>c)and(b>d) then begin a:=b;c:=b;d:=b;end;
if (c>a)and(c>b)and(c>d) then begin a:=c;b:=c;d:=c;end;
if (d>a)and(d>b)and(d>c) then begin a:=d;b:=d;c:=d;end;
end;
writeln(a,' ',b,' ',c,' ',d);
//а какой другой случай может быть? либо числа подряд меньше равно следующему либо меньше
end.
