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.
Передвигаться по полю
И наблюдать за игроками
Здесь очень просто: телевидение и интернет ( можно добавить телефон)
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.