Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв

@FiLbI4 · Регистрация: 05.05.2012

Author24 — интернет-сервис помощи студентам

Народ, помогите, пожалуйста, решить задачу:

1. Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв.

@КонецСвета · 03.06.2012, 11:10

Pascal

uses crt;
var s: string;
    i,k: byte;
    m1,m2,m3: set of char;
begin
m1:=[]; m2:=[]; m3:=[];
write('s='); readln(s);
i:=1;
while s[i]<>' ' do
      begin
      m1:=m1+[s[i]];
      inc(i);
      end;
inc(i);
while s[i]<>' ' do
      begin
      m2:=m2+[s[i]];
      inc(i);
      end;
k:=i+1;
for i:=k to length(s) do
    m3:=m3+[s[i]];
writeln((m1=m2) and (m1=m3));
end.

@FiLbI4 · 04.06.2012, 09:34 **[ТС]**

Спасибо огромное!)

@FiLbI4 0 / 0 / 0 Регистрация: 05.05.2012 Сообщений: 8
		1
	Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв 03.06.2012, 08:55. Показов 2085. Ответов 2 Метки нет (Все метки) Народ, помогите, пожалуйста, решить задачу: 1. Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв. 0

@FiLbI4 0 / 0 / 0 Регистрация: 05.05.2012 Сообщений: 8
	04.06.2012, 09:34 [ТС]	3
	Спасибо огромное!) 0

Строка состоит из трех слов. Верно ли, что для записи всех трех слов был использован один и тот же набор букв

Решение