Скодько байт информации содержит сообщение объемом 2,5 гбайт ?

Question

Информатика: Скодько байт информации содержит сообщение объемом 2,5 гбайт ?

nikita1232534 · Accepted Answer

Var n1,n2,A,B:integer;     D:byte; Begin WriteLn( 1 - Ввести n1 и n2, 0 - выход ); ReadLn(D); While D = 1 do    Begin    Write( n1 = );ReadLn(n1);    Write( n2 = );ReadLn(n2);    For n2:= n1 to n2 do        Begin        A:=n2;        B:=0;        While A 0 do           Begin           B:=B*10+A mod 10;           A:=A div 10;           End;        if B = n2 then Write(n2, )        End;    WriteLn;    WriteLn( 1 - продолжить, 0 - выйти );    ReadLn(D);    End; End. Правда, я не уверен, что она правильно...

MOGZ ответил