Program Puzzle_1;
Uses Crt;
Label zx;
Var
x: Array[1..10] of char;
a,b,c:byte;
s:string;
begin
ClrScr;
Write('Vvedite 10 bukv :');
For a:=1 to 10 do
begin
Write(a,') ');
Readln(x[a]);
end;
Write('vvedite slovo: ');
Readln(s);
For a:=1 to length(s) do
Repeat
Inc(b);
If b>10 then goto zx;
If s[a]=x[b] then
begin
Inc(c);
x[b]:='#';
end;
Until s[a]=x[b];
zx:
If c=length(s)
Then Write('Iz bukv mozhno sostavitj dannoje slovo!')
Else write('Iz bukv nelzja sostavitj dannoje slovo!');
Readln;
end.
Кстати, почему если я начале вместо Write(a,') ');Readln(x[a]); пишу Write(' ',a,' )');Read(x[a]); , то уменя вместо того, чтобы считывать буквы в строку, прог-а выводит какую-то туфту.
P.S. Заодно, если кому не лень, предложите еЩе варианты решения этой задачи.
Сообщение отредактировано: fizik -