Составить программу, которая запорашивает пароль до тех пор пока он не будет правильно...

Question

Составить программу, которая запорашивает пароль до тех пор пока он не будет правильно введен,вывести количество неправильных попыток(все это с циклом repeat)

Answer 1

Var k:integer;
s:string;
begin
repeat
readln(s);
k+=1;
until length(s)>=8;
writeln(k);
end.

length(s)>=8 это условие правильности пароля (через and можешь добавить еще что нибудь)

Comments

там "К+=1" ты ничего не пропустил? :)

---

k+=1 значит k:=k+1

---

спасибо)

---

но немного по другому надо было, нужно было чтобы выводился текст:"введите пароль" итд