Вкаком году появились компьютерные сети и беспроводные сети передачи данных? только годы..

В1965 году,   не уверенна на 100 проц, но все же

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) 4 раза

2) 5 раз

поскольку цикл зависит от переменной x разберём только её:

1. x = 1 проверяем условие цикла 1 < 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 < 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 < 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 < 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 < 5 (нет) цикл не запускается

следовательно цикл исполнится 4 раза.

при изменении условий на x < = 5

1. x = 1 проверяем условие цикла 1 < = 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 < = 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 < = 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 < = 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 < = 5 (да) цикл запускается х = 6

6. x = 6 проверяем условие цикла 6 < = 5 (нет) цикл не запускается

следовательно цикл исполнится 5 раз.