Решить задачу с подмогою цикла с предусловием 1)Организовать проверку пароля, если

1.

var k:integer;

p,p1:string;

begin

k:=5;

write ('Введите пароль: ');

readln(p);

while kgt;=1 do

begin

write ('Подтвердите пароль: ');

readln(p1);

if p=p1 then  

begin

writeln ('Вход в систему разрешен');

k:=0

end

else

k:=k-1

end

end.

2.

var a,s:integer;

begin

write ('Введите число: ');

readln(a);

while agt;0 do

begin

s:=s+a mod 10;

a:=a div 10

end;

write ('Сумма цифр: ',s);

end.

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;

begin

 i := 1;

 while i lt;= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.

2) Используем операцию x mod 10 для получения заключительной числа числа и x div 10 для "отбрасывания" заключительной цифры числа.

var

 x, ans: integer;

begin

 read(x);

 ans := 0;

 while x lt;gt; 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.