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) 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