X - сколько бит весит один символ
2^x - мощность алфавита
8*256*х бит = 0.25*1024*8 бит
х = 0.25*1024*8 /8/256 = 1 бит
2^1 = 2 - мощность алфавита
Всмысле какая задача? (Ну если я правильно понял вопрос,то математическая)
Тут находится только С по формуле: (A+B)*(B-A) и выводит результат (С) на экран.
Begin
for var i:=1 to 21 do
if (i mod 2 = 1) then
print(i);
end.
begin
for var i:=60 downto 10 do
if (i mod 2 = 0) then
writeln(i)
end.
var a,b: integer;
begin
readln(a,b);
for var i:=b downto a do
print(i*i*i);
end.
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441