Программа не правильно выводит ответ.

@sanek_next · Регистрация: 14.05.2010

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

Pascal

program b1;
var q,w,e,r,p,a:set of ' '..'ï';
i:byte;
t,y,u,o:string;
c,v:char;
begin
writeln('ввести 1 строку  t'); и тд
readln(t);
writeln('¢¢¥áâ¨ 2 áâà®ªã y');
readln(y);
writeln('¢¢¥áâ¨ 3 áâà®ªã u');
readln(u);
writeln('¢¢¥áâ¨ 4 áâà®ªã o');
readln(o);
for i:=1 to length(t) do q:=q+[t[i]];
for i:=1 to length(y) do w:=w+[y[i]];
for i:=1 to length(u) do e:=e+[u[i]];
for i:=1 to length(o) do r:=r+[o[i]];
p:=w*e*r;
a:=q-(w+e+r);
for c:' ')to ('ï') do begin
if c in p then writeln('общие эл',c);
end;
for v:' ')to ('ï') do begin
if v in a then writeln('те которых нет ни в одном из мн. ',v,' ');
end;
readln;
end.

Помогите разобраться Написал прогой вроде работает а ответ не правильный....(не правильно выводит)

Задание:
3 дет.сада в них игрушки. надо создать множество которое состоит из игрушек которые есть во всех садах. и множество которое состоит из игрушек которых нет ни в одном из садов

@Puporev · 19.03.2011, 16:50

Множества такого вида организуют примерно так.
Определить виды тех культур, которые возделывают на каждом из участков

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2011, 16:50	2
	Множества такого вида организуют примерно так. Определить виды тех культур, которые возделывают на каждом из участков 1