[-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]

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

[stil]

Сообщение от Aristarh Dark

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

как я понял надо вывести введеное слово, затем в столбец все символы со 2-го до предпоследнего рядом стобец спредпоследнего до 2-го и в строку наоборот

[-happy]

надо что бы в поле допустим LAbel1 вывелось это
ш к о л а
к______л
о______о
л______к
а л о к ш
(без нижних подчеркиваний)

[stil]

Код:

var i,j,l:integer;
    s:string;
begin
memo1.Font.Name:='Courier';
memo1.Clear;
memo1.Lines.Add(Edit1.Text);
l:=Length(Edit1.Text);
j:=l-1;
s:='';
for i:=2 to l-1 do s:=s+' ';
for i:=2 to l-1 do begin
  memo1.Lines.Add(Edit1.Text[i]+s+Edit1.Text[j]);
  Dec(j);
end;
for i:=l downto 1 do
  memo1.Lines.Strings[l-1]:=memo1.Lines.Strings[l-1]+Edit1.Text[i];