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.
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.
program p1;
uses graphabc;
var a,k,k2: integer;
begin
readln(a);
a: =a*20;
setpenwidth(1); //размер кисти, если большой, то лучше видно пунктир, маленький - качество и точность
setwindowsize(4*a,3*a);
k: =round(a/2);
k2:
=round(0.43*a);
rectangle(a,a+k,2*a,2*a+k); //прямоугольник - передняя часть куба
line(a,a+k,a+k2,a); // левое верхнее ребро
line(2*a,a+k,2*a+k2,a); //правое верхнее ребро
line(2*a,2*a+k,2*a+k2,2*a); //правое нижнее ребро
line(a+k2,a,2*a+k2,a); // заднее верхнее
ребро
line(2*a+k2,a,2*a+k2,2*a); //правое заднее ребро
setpenstyle(psdash); // выбрать тип пера - пунктир
line(a+k2,a,a+k2,2*a); //заднее левое ребро
line(a,2*a+k,a+k2,2*a); //нижнее левое ребро
line(a+k2,2*a,2*a+k2,2*a); //заднее нижнее ребро
end. (программа по
созданию кубов если тебе понравился мой ответ ставь ! )