с информатикой 9 класс! Напишите решение задачи: как с
кувшинов на 6 и 9 литров, отмерить из колодца
5 литров воды? (используем табличный

Напишите решение задачи: как перевезти через
реку 20 солдат, если лодкой владеет мальчик,
которому нельзя плавать одному, а помещается
в нее только 2 солдата и мальчик? (используем
словесный

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) Пароль в этом коде - "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.