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

Question

Информатика

Ируня

26 сентября, 07:10

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

+1

Ответы (1)

Знаете ответ?

Филюха · Answer 1

Var k:integer;

s:string;

begin

repeat

readln (s) ;

k+=1;

until length (s) >=8;

writeln (k) ;

end.

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