Решение задач с использованием циклов

1) 145 (10 сс) - 10010001 (2 сс)

145 (10 сс) - 221 (8 сс)

145 (10 сс) - 91  (16 сс)

2) 854 (10 сс) - 1101010110 (2 сс)

854 (10 сс) - 1526 (8 сс)

854 (10 сс) - 356  (16 сс)

Объяснение:

145 (10 сс) - 10010001 (2 сс)

145 делим в столбик на 2 без остатка. 145/2=72 (145-144=1), далее 72/2=36 (72-72=0), 36/2=18 (36-36=0), 18/2=9 (18-18=0), 9/2=4 (9-8=1), 4/2=2 (4-4=0), 2/2=1 (2-2=0). Записываем в обратном порядке полученные цифры: 10010001.

145 (10 сс) - 221 (8 сс)

145 делим в столбик на 8 без остатка. 145/8=18 (145-144=1), 18/8=2 (18-16=2). Записываем в обратном порядке полученные цифры: 221

145 (10 сс) - 91  (16 сс)

145 делим в столбик на 16 без остатка. 145/16=9 (145-144=1).

Записываем в обратном порядке полученные цифры: 91

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.