Двойной выделяет строку
тройной - весь текст
Var s:string; c:char; i:integer;
begin
write('s = '); readln(s);
i:=1;
while (i+2<=length(s)) do
if(s[i]=s[i+1])and(s[i+1]=s[i+2])
then begin
c:=s[i];
while (i<=length(s))and(c=s[i]) do delete(s,i,1);
i:=1;
end
else i:=i+1;
writeln(s);
<span>end.</span>
Ответ:
Объяснение:
T i m e
54 69 6D 65
01010100₂ - T
01101001₂ - i
01101101₂ - m
01100101₂ - e
54₁₆ = 4*16⁰ + 5*16¹ = 84₁₀
84₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1010100₂
69₁₆ = 9*16⁰ + 6*16¹ = 105₁₀
105₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101001₂
6D₁₆ = D*16⁰ + 6*16¹ = 109₁₀
109₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1101101₂
65₁₆ = 5*16⁰ + 6*16¹ = 101₁₀
101₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100101₂
<span>a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.</span><span> </span>
По горизонтали
1)274
5)1979
6)8376
7)135
по вертикали
1)24954
2)43825
3)193
4)377
сможешь сделай ответ лучшим? очень надо:)