1.
89=1011001
600=1001011000
2010=11111011010
2.
513=1000000001(в 2)=1001
600=1130
2010=3732
Наименьшее количество красных : 7+10+1=18
наименьшее количество зеленых: 5+10+1=16
наименьшее количество синих клубков:5+7+1=13
1) uses<span> crt;
2) </span><span>var
3) </span>s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0<span>;
7) </span>writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?')<span>;
</span>10) readln(s2);
11) for i:=1 to length(s1) do <span>begin
</span>12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k)<span>;</span>
16)End.
Мальчик управляет девочкой: мальчик просит шарик
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.