Чё ?фывфывфыфвыфвыфвфывыфвыфвывыфвффывфывфывфывыф
Var s,sw: string;
i,j,bst: integer;
begin
s:='строка для решения арба еле реестр';
bst:=1; sw:=''; write('строка для поиска - ');
writeln(s);
for i:=1 to length(s) do
begin
if (Ord(s[i])=32) then
begin
if (s[bst]=s[i-1]) then
begin
for j:=bst to i-1 do sw:=sw+s[j];
writeln('найдено слово - ',sw);
sw:='';
end;
bst:=i+1;
end;
end;
if (s[bst]=s[length(s)]) then
begin
for i:=bst to length(s) do sw:=sw+s[i];
writeln('найдено слово - ',sw);
end;
<span>end.
</span>
var
y: integer;
begin
write('Введите 3-ое число: Y = ');
readln(y);
writeln(' Число X = ', y mod 100 div 10,y div 100,y mod 10)
end.
Пусть длинна сообщения будет X. Тогда размер сообщения в кодировке UniCode будет 16 * X, а в КОИ-8 - 8 * X. Размер сообщения в кодировке UniCode на 240 бит больше чем размер в КОИ-8. Следовательно, имеем уравнение:
8X +240 = 16X
8X = 240
X = 30
Ответ: длинна сообщения - 30 символов.