Переводим оба числа в десятичную, делим. Получаем дробь меньше нуля, переводим в 16-ю. Получаем бесконечную периодическую дробь 0.(С8253)16 Первая цифра после запятой С. Думаю так.
1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
Здесь надо знать наизусть формулу
N=2^i i - это вес одного символа , подставляем твоё число по формуле
N=2^8=256 символов; N - Кол.символов в алфавите
Вот таблица
2^0=1
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр