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.
Эйлеровы круги (круги Эйлера) — принятый в логике моделирования, наглядного изображения отношений между объемами понятий с кругов, предложенный знаменитым математиком Л. Эйлером (1707–1783). Он говорил о названных его именем схемах: «круги подходят для того, чтобы облегчить наши размышления». Эйлер считается немецким, швейцарским и даже российским математиком, механиком и физиком. Дело в том, что он много лет проработал в Петербургской академии наук и внес существенный вклад в развитие российской науки.
До него подобным принципом при построении своих умозаключений руководствовался немецкий математик и философ Готфрид Лейбниц.
Метод Эйлера получил заслуженное признание и популярность. И после него немало ученых использовали его в своей работе, а также видоизменяли на свой лад. Например, чешский математик Бернард Больцано использовал тот же метод, но с прямоугольными схемами.