Paskal abcТут задача, в которой нужноPaskal abcТут задача…

Paskal abcТут задача, в которой нужноPaskal abcТут задача, в которой нужно ввести верно пароль, ну дак вот нужно составить похожую программу, но так что-бы было 3 попытки ввода пароля, ну и после этих попыток будет например «Вы ввели не верный пароль, попытки исчерпаны"можно сделать через string-programtest1; varx,y: integer; beginy: =555; repeatwriteln (‘введитепароль’); readln (x); until y=xwriteln (‘Поздравляем, вы ввели пароль верно’); end.

в избранное

voold

05 августа 2022

Можно сделать с помощью цикла: vars1: string; s: array [1… 3] of string; i,j: longint; beginreadln (s1); {input password}j: =0; for i: =1 to 3 dobeginreadln (s[i]); if s[i]=s1 then begin writeln ('Пароль введен правильно'); exit; end else begin inc (j); if j=3 then writeln ('Вы ввели не верный пароль, попытки исчерпаны'); end; end; end.P.S. Копировал со своего паскаля, так что красоту сам наведешь (и у меня программа работает, если будет такой вопрос)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?