Ответы на вопрос:
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.
Как бы обыно стоит unix сервер /home/user/a777777(место отведенное для вас)/sources(подкаталог созданный вами для сайта)/file(ну и сам файл)
Популярно: Информатика
-
aalleeks26.07.2021 11:45
-
sonyasm200628.05.2022 21:11
-
angelina45501.03.2021 02:00
-
Диана1Котова29.12.2021 10:21
-
kurilkodanil13.07.2021 09:00
-
сонясонясоня123.02.2021 21:06
-
Tim4ik228125.01.2022 01:40
-
sherbashina16.09.2022 17:51
-
ДарьяРэя09.11.2022 05:26
-
AnNik0805.12.2021 07:31