Function max (var first,second:real): real; begin if first > second then max:=first else max:= second; end;
var a,b,c,y : real; begin writeln('Ведите a,b,c через пробел и нажмите Enter: '); read(a,b,c); y:= max(a,a+b)+max(a,b+c)/1+max(a+b*c,1.5); writeln('Ответ: ',y); <span>end.</span>
<em><u>А вот так, на мой взгляд, должно быть:</u></em> var a,b,c:real; begin Write('Введите a,b,c: '); Read(a,b,c); Writeln('Результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5))) end.
S = a * b; P = (a + b) * 2; printf ("Площадь - %d \n Периметр - %d \n", S, P); if (S > P) printf ("Площадь больше периметра\n"); else printf("Периметр больше площади\n");