Ответы на вопрос:
Program n1; var pas: string; k: integer; begin readln(pas); k: =0; while true do if pas='246' then begin write('молодец'); break; end else begin k: =k+1; writeln('неверный пароль'); readln(pas); if k=5 then begin write('карта заблокирована'); break; end; end; end.
Популярно: Информатика
-
knyzeva280402.12.2020 17:05
-
VickaBro14.10.2020 05:23
-
myloveislikeyou19.04.2020 21:06
-
xeniakudriavtseva25.02.2021 11:42
-
gfyyfyftd12.04.2020 06:38
-
katyaklimovich18.12.2020 04:30
-
kos200815.07.2021 10:39
-
Наргиз1ппп20.01.2021 06:59
-
sahka0330.08.2021 04:19
-
StasyaSelyugina08.01.2023 01:39