Предмет: Информатика,
автор: Шарарашка090
Напишите маленькую программу угадывания пароля не более чем из 3-х попыток. ПОЛОВИНА ГОТОВА
Вопрос такой: А как еще две попытки записать?
Решение или подсказку?
Решение
Вот только паскаль не нужен. Мне бы питон
Ответы
Автор ответа:
0
Вот решение подобной задачи на языке паскаль.
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.
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.
var b,c : string;
begin
a:=0;
Readln(b);
while a<3 do
begin
Readln(c);
If c=b then
begin
Writeln('доступ резрешен');
end
else
begin
a:=a+1;;
end;
end;
Writeln('вы не угадали');
end.]
begin
a:=0;
Readln(b);
while a<3 do
begin
Readln(c);
If c=b then
begin
Writeln('доступ резрешен');
end
else
begin
a:=a+1;;
end;
end;
Writeln('вы не угадали');
end.]
А на питоне можно?
Похожие вопросы
Предмет: Математика,
автор: baha1202
Предмет: Қазақ тiлi,
автор: rustenovamadina
Предмет: Математика,
автор: baranov2020
Предмет: Химия,
автор: kirillbeskrovnyi
Предмет: Математика,
автор: vatang1987
print ("Введите пароль:")
s=input()
if s=="Omega":
print("Доступ разрешён.")
else:
print ("Неверный пароль, осталось 2 попытки.")