Не(А или не Б) равно Не А и Б.
Var a,b,x,y,z,m: real;
Begin
Write ('Размеры отверстия a,b=');
Read(a,b);
Write ('Размеры кирпича x,y,z=');
Read(x,y,z);
if a>b then begin m:=a; a:=b; b:=m end;
if x>y then begin m:=x; x:=y; y:=m end;
if x>z then begin m:=x; x:=z; z:=m end;
if y>z then begin m:=y; y:=z; z:=m end;
if (x>=a) or (y>=b) then
write('Кирпич не пройдет через отверстие')
else
write('Кирпич пройдет через отверстие');
end.
Пример:
Размеры отверстия a,b=3 4
Размеры кирпича x,y,z=4 3 2
2 3 4
Кирпич пройдет через отверстие
2с/с
42 ———> 2^5+2^3+2^1 = 101010
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
30, 31,32,33,34,35,36,37,38,39
50, 51, 52, 53, 54, 55, 56, 57, 58, 59