ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var T,N,i: longint;
    k,x,y,a,b,Spr,Str: Real;
begin
  repeat
     write('a<b; a,b=');
     readln(a,b); 
  until a<b;
  write('N='); readln(N);
    T:=0; Randomize;
    for i:=1 to N do
      begin
        x:=a+(b-a)*random;
        y:=Random/a;
        if y<=1/x then T:=T+1
      end;		
  K:=T/N;
  Spr:=(b-a)/a; Str:=K*Spr;
  writeln('Площадь трапеции {или хз что получится} =',Str:0:4,
         ' Точное значение пдощади =', ln(b/a):0:4); //эт я из геометр. помню
end.

Program qwer;

Var
	k,x,y: integer;
	n,i:longint;
Begin
	randomize;
	k:=0;
	n:=10000;
	for i:=1 to n do 
		begin
		x:=random(4)-2;
		y:=random(4)-2;
		if (x+y<=1) and (x-y<=1) and (-x+y<=1) and (-x-y<=1) then 
			k:=k+1;
		end;
	writeln(k/n*4 :2:2);
End.

Program qwer;

Var
	a:char;
	s:string;
	infile:text;
Begin

	assign(infile,'yourfile.txt');
	reset(infile);
	s:='';
	repeat
		read(infile,a);
		case a of
			'0'..'9':	s:=s+a+' ';
		end;
	until eof(infile);
	
	close(infile);
	append(infile);
	writeln(infile,s);
	close(infile);
End.