Решить с цикла с предусловием 1)организовать проверку пароля, если пароль верный – написать «вход в систему разрешен», если пароль не угадан 5 раз - прекратить проверку пароля. 2)ввести целое число и найти сумму его цифр. пример: введите целое число: 1234 сумма цифр числа 1234 равна 10. 9 класс через pascal !

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

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 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 <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.

1.

var k:integer;

p,p1:string;

begin

k:=5;

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

readln(p);

while k>=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 a>0 do

begin

s:=s+a mod 10;

a:=a div 10

end;

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

end.