Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
Сначала подсчитать сколько символов на одной странице
25*80=2000 символов на странице
Теперь можно узнать объём текстовой информации умножив кол-во символов на информационный объём одного символа в Unicode (16 бит)
2000*16=32000 Бит объём текстовой информации на странице
<em>var g,s:string;
</em>
<em>begin
</em>
<em>readln(g);
</em>
<em>readln(s);
</em>
<em>writeln('Столица государства ',g,' - ','город ', s);
</em>
<em>end.
</em>
Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.