Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
Бег<span>-бог-бок-бак-мак-маг-</span>шаг
море-морс-торс-тора-тура-туша-суша
наверное, так
Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4
Элементарное задание для младшей школы.
N=2^i
9=2^i
Если взять 2^3, будет 8. 8 меньше 9, значит берем следующую степень за 3
Ответ: 4