Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Запрограммировать игру "Виселица".
(Паскаль)

Ответ оставил Гость

Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+*;
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln(Только одна буква!);
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln(Осталось ,6-t, попыток);
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln(Осталось ,6-t, попыток);
 end;
 if so=sr then break;
end;
if so=sr then writeln(Вы выиграли) else writeln(Вы проиграли);
end.