foobar2000 - аудиоплеер, основные черты которого качественный звук, широкие возможности настройки, спартанский интерфейс и низкие системные требования

скачать бесплатно: http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-76

Всеформатный плеер, проигрывает все форматы видео и музыки.

Скачать бесплатно http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-77

TeamViewer 8.0.16642 Final RePack приложение для удаленного управления компьютером.
Удобный интерфейс, простота настройки, управление посредством удаленного рабочего стола.

Скачать бесплатно TeamViewer 8.0.16642 Final RePack  http://rashcheburach.ucoz.com/load/vsja … k/4-1-0-78

Uses Crt;
Var S: String;    k: Integer;

    begin
      ClrScr;
      Write('S='); Readln(S);
      For k:=1 To Length
      (S) Do
      If S[k]='?' Then S[k]:='!';
      Writeln('new S=',S); Readln;
      Readln;
End.

Uses Crt;
Var n: Integer;
         a,b,R,S: Real;
     begin
       ClrScr;
       Writeln('4to nuzno: 1-S krug ili 2-S prjamougoljnika.');
       Readln(n);

       If n=1 Then
         begin
           Write ('R='); Readln(R);
           S:=PI*R*R; Writeln('S kruga =',S:8:2);
         end

       Else If n=2 Then
          begin
            Write ('a='); Readln(a);
            Write ('b='); Readln(b);
            S:=a*b; Writeln('S prjamoug.=',S:8:2);
          end

       Else Writeln('Ne ponjal...');

       Readln;

End.

Uses Crt;
Var n: Integer;

    a,b,R,S: Real;

    begin
      ClrScr;
      Write('4to ho4ew 1-S Kruga ili 2-S prjamoug');
      Readln;
      If  n=1 Then
        begin
          Write ('R='); Readln(R);
          S:=PI*R*R; Writeln('S kruga = ',S:8:2);
        end
      Else If n=2 Then
        begin
          Write ('a='); Readln(a);
          Write ('b='); Readln(b);
          S:=a*b; Writeln('S prjamoug = ',S:8:2);
        end;

      Else Writeln('Ne ponjal...');
      Readln;
End.

Uses Graph;
Var gd,gm: Integer;
    k: Word;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For k:=1 To 5 Do
      begin
        if k mod2 = 0 Then
          Rectangle(50*k,50*k,50*k+30,50*k+30)
          Bar(50*k,50*k,50*k+30,50*k+30)
         end;
   Reading; CloseGraph;
End.

Uses Graph;
Var gd,gm: Integer;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For r:=1 To 5 Do Circle(100,100,10*r);
    For r:=1 To 5 Do Circle(80*x,100,30);

    For r:=1 To 5 Do
    For y:=1 To 4 Do
    Circle(80*x, 80*y, 30);

   Reading; CloseGraph;
End.

Uses Graph;
Var gd,gm: Integer;

    begin
      gd:=Detect;InitGraph(gd,gm,");
      SetColor(1); SetFillStyle(1,14);
      Circle(100,100,25);
      FillEllipse(100,200,25,50);
      SetColor(2); SetFillStyle(1,12);
      Rectangle(200,100,250,150);
      Bar(200,200,300,250);
      Readln; CloseGraph;
End.

Uses Graph;
Var gd,gm: Integer;

    begin
      gd:=Detect;InitGraph(gd,gm,");
      SetColor(1); SetFillStyle(1,14);
      Circle(100,100,25);
      FillEllipse(100,200,25,50);
      SetColor(2); SetFillStyle(1,12);
      Rectangle(200,100,250,150);
      Bar(200,200,300,250);
      Readln; CloseGraph;
End.