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

Question

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

Answer 1

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

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 5 do</p>

 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.

Comments

спасибо сейчас проверю

---

У тебя ошибка

---

где?

Answer 2

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.

Comments

var k:integer;p,p1:string;beginp:='gfhjkm12345';//Сюда вводим парольk:=5;while k>=1 dobeginwrite ('Введите пароль: ');readln(p1);if p=p1 thenbeginwriteln ('Вход в систему разрешен');k:=0endelsebegink:=k-1;if k>=0 then writeln ('Неверный пароль');if k=0 then writeln ('Превышено количество попыток. Проверка пароля прекращена');endendend.