Paskal abc
Тут задача, в которой нужно ввести верно пароль, ну дак вот нужно составить похожую программу, но так что-бы было 3 попытки ввода пароля, ну и после этих попыток будет например "Вы ввели не верный пароль, попытки исчерпаны"
можно сделать через string
------------------------
program
test1;


var
x,y:integer;


begin


y:=555;


repeat


writeln(‘введите
пароль’);


readln(x);


until y=x


writeln(‘Поздравляем,
вы ввели пароль верно’);


end.

1

Ответы и объяснения

Лучший Ответ!
2013-12-12T03:58:17+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Program test1;

var
    x, y, i: integer;

begin
    y := 555;
    for i := 1 to 3 do
    begin
        writeln('введите пароль');
        readln(x);
        if y = x then begin
            writeln('Поздравляем, вы ввели пароль верно');
            break;
        end;
    end;
    if x <> y then
        writeln('Попытки исчерпаны');
end.