fkn+antitotal

Урок 13.1 Задача13

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:

M := 3;
N := 15;

Получим:

9
27

Урок 13.1 Задача 12

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3
А для 8:

4
2
1

Урок 13.1 Задача 11

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

program  u131z11;
var i, m: integer;

begin

  repeat
    writeln ('vvedite chislo');
    readln(m);
      if (m <>0)then
      begin
        if (m mod 2 = 0) then
          writeln('chislo chetnoe')
          else
          writeln ('chislo nechetnor');

      end;
  until (m = 0);
end. 

Урок 13.1 Задача 8

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

program  u131z7;
var i, n: integer;

begin

  for  i:=1 to 2 do
  begin
    for n:= 1 to 5 do
      write (n,' ');
      writeln();
  end;
  readln();

end.      

Урок 13.1 Задача 6

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

Задача 16 Урок 11:

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Решение:

(в процессе)

В инструкции предлагается добавить в html баннера такой код:

<script>
// ..................
// Выше может быть и другой ваш код,
// а для go NET добавим
var clickTag="ссылкаНаРекламируемуюСтраницу";
</script>

<body>
	<a href="javascript:window.open(window.clickTag)">
		// html разметка вашего баннера
	</a> 
</body>

Пример для выгрузки из Adobe Animate

После выгрузки из AA было:

Проблема

Проблема заключается в том, что при запросе с GET-параметром (?XDEBUG_SESSION_START) из от одного микросервиса к другому (оба в разных контейнерах), сессия отладки в IDE на основной ОС не начинается (хотя IDE и ожидает соединения из контейнера).

При этом если делать тот же запрос (напрямую в контейнер микросервиса), напр. из postman-а - отладка работает нормально.

Конфиг xdebug-а внутри контейнера:

Урок 13.1 Задача 5

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Урок 13.1 Задача 2

Выведите на экран таблицу умножения используя только циклы вида while.

program  u131z2;
var i,j: integer;

begin
  i:=1;
  while (i <= 9) do
  begin

    j:=1;
    repeat
      while (j <= 9) do
      begin

      write(i, '*', j, '= ', i*j, ' ');
      j:= j + 1;

      end;
    until (j > 9);


  i:=i + 1;
  end;
  readln();
end.