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.
a=list(range(5,55,2))
print(a)
i=0
for e in range(5,55,2):
i=i+e
print(f"Сума чисел від 5 до 54 з кроком 2 дорівнює {i}")
i=1
for e in range(5,55,2):
i=i*e
print(f"Добуток чисел від 5 до 54 з кроком 2 дорівнює {i}")