Сравните числа. 101101₂ 101011₂

11011₂ 29₁₀

105₁₀ 1101001₂

59₁₀ 111101₂

11010101₂ 212

1.Они равны

2. 1Больше чем2

3. второе больше

4Второе

5.первое больше

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.