Решить задачу с помощью цикла с предусловием 1) Организовать проверку пароля, если пароль верный - написать "Вход в систему разрешен", если пароль не угадан 5 раз - прекратить проверку пароля. 2) Ввести целое число и найти сумму его цифр. Пример: Введите целое число: 1234 Сумма цифр числа 1234 равна 10.

9 класс через pascal прошу!

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.

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.