var
s:string;
i,count:integer;
a: set of char;
begin
i:=3;
readln(s);
writeln('1)');
if length(s)>=3 then
repeat
write(s[i]);
i:=i+3;
until i>length(s)
else
writeln('error');
writeln;
writeln('2)');
i:=2;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
i:=1;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
writeln('3)');
a:=[];
count:=0;
for i := 1 to length(s) do
if s[i] in a then
else
begin
a:=a+[s[i]];
inc(count);
end;
writeln(count);
end.
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.
Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).
Если один из жестких откажет, второй будет работать.. и они выполняют друг на друга резервное копирование данных