1) (a3 + b3) - (a3 - 63)3 - 269; 3) 3a464(a4 - 64) - (a4 - 64)2;
2) (1 - a3b3)3 - (a’h3 - 1)3 - 2;
4) (c2 + d^)3 - 3c2d²(c2 + dº).
Ответы на вопрос:
procedure max(a,b,c:integer; var q:integer);
begin
if a>b then if b>c then q:=b else q:=c;
if a<b then if a<c then q:=c else q:=a;
end;
...
var a1,b1,c1, a2,b2,c2, a3,b3,c3:integer;
begin
... Вводим
max(a1,b1,c1,a1);
max(a2,b2,c2,a2);
max(a3,b3,c3,a3);
max(a1,a2,a3,a1);
... Выводим а1
end.
Объяснение:
var a1,b1,c1,a2,b2,c2,a3,b3,c3:integer;
max1,max2,max3,min1,min2,min3:integer;
max,min,rar:integer;
procedure pr(a,b,c:integer;var z,w:integer);
begin
if (a>=b) and (a>=c)then z:=a;
if (a<b) and (a<c) then w:=a;
if (b>=a) and (b>=c)then z:=b;
if (b<a) and (b<c) then w:=b;
if (c>=a) and (c>=b)then z:=c;
if (c<a) and (c<b) then w:=c;
end;
begin
read(a1,b1,c1);
pr(a1,b1,c1,max1,min1);
read(a2,b2,c2);
pr(a2,b2,c2,max2,min2);
read(a3,b3,c3);
pr(a3,b3,c3,max3,min3);
pr(max1,max2,max3,max,rar);
pr(min1,min2,min3,rar,min);
write(max,' ',min);
end.
Популярно: Алгебра
-
almaziksky31111.02.2022 00:42
-
agapova200719.06.2022 14:52
-
AMAYA00006.05.2022 15:55
-
amir4516.05.2023 23:56
-
steshaaaaa130.05.2022 05:42
-
nurpaik29.08.2020 02:41
-
tigranpesoz3twi08.07.2020 14:43
-
KAY11123.11.2020 15:47
-
kofpik10.04.2021 14:10
-
Влада1999373724.05.2023 23:47