Напишите маленькую программу угадывания пароля не более чем из 3-х попыток. ПОЛОВИНА...

Question

Напишите маленькую программу угадывания пароля не более чем из 3-х попыток. ПОЛОВИНА ГОТОВА

Comments

Вообщем вот:print ("Введите пароль:")s=input()if s=="Omega": print("Доступ разрешён.")else: print ("Неверный пароль, осталось 2 попытки.")

---

Вопрос такой: А как еще две попытки записать?

---

Решение или подсказку?

---

Решение

---

Вот только паскаль не нужен. Мне бы питон

Answer 1

Вот решение подобной задачи на языке паскаль.
Program abc;
var b,c : string;begina:=0;Readln(b);while a<3 dobeginReadln(c);If c=b then beginWriteln('доступ резрешен');endelse begina:=a+1;; end;end;Writeln('вы не угадали');end.

Comments

var b,c : string;
begin
a:=0;
Readln(b);
while a<3 do<br>begin
Readln(c);
If c=b then
begin
Writeln('доступ резрешен');
end
else
begin
a:=a+1;;
end;
end;
Writeln('вы не угадали');
end.]

---

А на питоне можно?