[-happy]

1) написать программу, которая введенное с клавиатуры слово напечатает следующим образом:

ш к о л а
к______л
о______о
л______к
а л о к ш

2) из заданной символьной строки выбрать те символы, которые встречаются в ней только 1 раз в том порядке, в котором они встречаются в тексте

[stil]

Код:

var s:string;
    l,i,j:integer;
begin
write('s=');readln(s);
writeln(s);
l:=Length(s);
j:=l-1;
for i:=2 to l-1 do begin
  write(s[j],' ');
  writeln(s[i]);
  Dec(j);
end;
for i:=l downto 1 do
  write(s[i]);
readln;

[stil]

Код:

var s:string;
    i,j,l:integer;
    b:boolean;
begin
write('s=');readln(s);
l:=Length(s);
for i:=1 to l do begin
  b:=true;
  for j:=1 to l do
    if (s[i]=s[j]) and (i<>j) then b:=false;
    if b then write(s[i]);
end;
readln;

[Asinkrit]

Интересно откуда во втором варианте взялось с?) И в каком случае, оно становится равняться 0?

[Марат]

Код:

var s:string;
    i,j,l:integer;
    b:boolean;
begin
write('s=');readln(s);
l:=Length(s);
for i:=1 to l do begin
  b:=true;
  for j:=1 to l do
    if (s[i]=s[j]) and (i<>j) then b:=false;
    if b then write(s[i]);
end;
readln;

Admin: Пользуемся тегам. Читаем правила!
Было бы проще и j -столбец задать!

[Aristarh Dark]

Объясните мне что требуется сделать в задании поо "школу", а то я никак понять не могу что там за буквы.