Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.
X+y+z=96
------------------------
1) x1=x-y
y1=y+y=2y
2) y2=y1-z=2y-z
z1=2z
3) z2=z1-x1=2z-x+y
x2=x1+x1=2x-2y
x2=y2=z2=96:3=32
----------------------------------
2x-2y=32 ----> x-y=16 ----> x=y+16 подставляем в (*)
2y-z=32 ------> z=2y-32 подставляем в (*)
2z-x+y=32 (*)
--------------------------------------------------
2(2y-32) -(y+16) +y=32
4y-64-y-16+y=32
4y=112
y=28
x=y+16=28+16=44
z=2y-32=56-32=24
ответ 44 28 24
Program n1;
var r: real;
begin
write('радиус шара (см): ');
readln(r);
writeln('площадь боковой поверхности: ',4*pi*r*r,' (кв. см)');
writeln('обьем шара: ',1/3*pi*r*r*r,' куб. см)');
end.
const
n = 5;
var
arr: array [1..2*n] of <em>integer </em>:= (0,1, -2,1, -1,-1, 1,2, -3,0);
i: <em>byte </em>:= 1;
maxr: <em>real</em>;
begin
repeat
maxr := max(sqrt(sqr(arr[i]) + sqr(arr[i + 1])), maxr);
i += 2;
until (i > 2 * n - 1);
writeln(maxr);
end.