program test;
var x,y: integer;
begin
read(x,y);
if (x>=-3) and (x<=2)
and (y>=-1) and (y<=1)
then write ('входит') else write ('не входит');
end.
Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>
Минимальное число - 3
В данном случае у нас импликация, выражение ложно, если из истины следует ложь. Подставив 3 получим: 3<5(истина)->9<9(ложь).
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится