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

//из ДОС в Windows
char* Decode_DOS_to_Win(char * str)
{
    unsigned char *cstr=str;//"unsigned" - чтоб избежать предупреждений комп-ра
    for(; *cstr; cstr++)
    {
        if(*cstr>=128 && *cstr<=175)
            *cstr+=64;
        else if(*cstr>=224 && *cstr<=239)
            *cstr+=16;
        else if(*cstr==252)
            *cstr=185;
    }
    return str;
}
//----------------------------------------------------

//из Windows в ДОС
char* Decode_Win_to_DOS(char * str)
{
    unsigned char *cstr=str;
    for(;*cstr;cstr++)
    {
        if(*cstr>=240)
            *cstr-=16;
        else if(*cstr>=192)
            *cstr-=64;
        else if(*cstr==185)
            *cstr=252;
    }
    return str;
}

Dim My1Array(25)
Dim oFso
Dim oMyFile

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMyFile = oFso.CreateTextFile("output.txt")

My1Array(0) ="a"
My1Array(1) = "b"
My1Array(2) = "c"
My1Array(3) = "d"
My1Array(4) = "e"
My1Array(5) = "f"
My1Array(6) = "g"
My1Array(7) = "h"
My1Array(8) = "i"
My1Array(9) = "j"
My1Array(10) = "k"
My1Array(11) = "l"
My1Array(12) = "m"
My1Array(13) = "n"
My1Array(14) = "o"
My1Array(15) = "p"
My1Array(16) ="q"
My1Array(17) = "r"
My1Array(18) = "s"
My1Array(19) = "t"
My1Array(20) = "u"
My1Array(21) = "v"
My1Array(22) = "w"
My1Array(23) = "x"
My1Array(24) = "y"
My1Array(25) = "z"


For i = 0 To 25
   For j = 0 To 25
      For k = 0 To 25
	For l = 0 To 25
	   
oMyFile.WriteLine(My1Array(i)&My1Array(j)&My1Array(k)&My1Array(l))

             Next
      Next
   Next
Next

Program summa;
uses crt;
var m:integer;
x,s,n: real;
begin
clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA');
repeat
readln(n);
s:=s+n;
m:=m+1;
until n=0;
writeln(s / m);
readln;
end.