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.
1 votes Thanks 1
Gleb1Kosyrev
var so,sr,c:string; t,k,i:integer; Нужно исправить.
Answers & Comments
Verified answer
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.
t,k,i:integer;
Нужно исправить.