Из условия задачи возьмем известные нам факты: 1. Борис бывает в Бобруйске лишь проездами и то, весьма редко, хотя все его родственники живут в этом городе. 2. У двоих из этих людей названия профессий и городов, в которых они живут, начинаются с той же буквы, что и имена. 3. Жена аптекаря приходится Борису младшей сестрой.
Совместив эти факты получаем что: 4. Борис не живет в Бобруйске и что он не аптекарь. 5. Жена аптекаря - сестра Бориса => Аптекарь живет в Бобруйске, так как все родственники Бориса там живут.
Используя все факты выводим,что Андрей - из Архангельска (оперируя фактом №2) , а так как он не из Бобруйска - он не аптекарь, а значит он агроном, следуя фактам (№2 и №5). Следуя факту №4 получаем,что Борис живет в Белгороде и работает бухгалтером. Остается Бронислав, который живет в Бобруйске и по профессии аптекарь. Доказательством решения является то,что ни один из фактов не нарушен.
Андрей - Агроном - Архангельск Бронислав - Аптекарь - Бобруйск Борис - Бухгалтер - Белгород
var l,k:char; m,s:string; n,i,a:integer; begin read(s); l:=s[1]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[2]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[3]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[4]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[5]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[6]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; writeln(m); writeln(n); end.
begin for a:=10 to 99 do begin
if (a mod 7=0) then s:=s+a;
k:=k+1;
end;
writeln(s);
writeln(k);
end.