Paskal abcТут задача, в которой нужно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-11T17:58:06+04:00
Можно сделать с помощью цикла:
var
s1:string;
s: array [1..3] of string;
i,j:longint;
begin
readln(s1); {input password}
j:=0;
for i:=1 to 3 do
begin
readln(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. копировал со своего паскаля, так что красоту сам наведешь (и у меня программа работает, если будет такой вопрос)
Комментарий удален
что такое inc
Комментарий удален
ну не как не понимаю это действие var
s1:string;
s: array [1..3] of string;
Комментарий удален