Пожалуйста, помогите. Либо мои мозги поплыли, либо компилятор. =_=
PascalABC.Net
Код:
program qq;
var C, res, res2:set of char;
ar:array[1..1000] of integer;
i,n,x:integer;
t,f:text;
begin
assign (t, 'Input.txt');
reset (t);
read (n);
i:=0;
while not EOF(t) do begin
i:=i+1;
read(t, x);
ar[i]:=x;
end;
close (t);
for i:=1 to n do begin
if not(ar[i] in C) then begin
res:=res+[ar[i]];
C:=C+[ar[i]];
end
else
if (ar[i] in C) then begin
res2:=res2+[ar[i]];
res:=res-[ar[i]];
end;
end;
end;
assign (f, 'Output.txt');
rewrite (f);
writeln (f,'1) ');
for i:=0 to 255 do begin
if i in res then write (f, i,' ');
end;
writeln (f,'2) ');
for i:=0 to 255 do begin
if i in res2 then write (f, i,' ');
end;
writeln (f,'3) ');
for i:=0 to 255 do begin
if not ((i in res2) and (i in res)) then write (f, i,' ');
end;
close (f);
end.
Примечание:
А, ну да. Там вместо C, res, res2:set of char; должно быть C, res, res2:set of Integer;
Примечание:
А, и правда. Там после else забыл begin влепить. Спасибо.
Примечание:
А, и правда. Там после else забыл begin влепить. Спасибо.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.