fkn+antitotal

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

Есть программа:

var z,s:integer;
  f:boolean;
begin
  readln(z);
  f := z > 5;
  s:=1;
  if (z=s) and (f=false) then
  begin
    writeln();// делаем перенос строки
    z:=0;
    s:=s+1;//но увеличиваем кол-во строк
  end;
 
  if (z=s) and (f=true) then
  begin
    writeln(); // делаем перенос строки
    z:=0;
    s:=s-1;//но уменьшаем кол-во строк
  end;
end.  

-- в двух условных операторах действия частично совпадают, а значит наблюдается дублирование кода. Перепишите код так, чтобы дублирования не было.

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

В моем случае причиной ошибки было то, что в контейнере с нджинком вообще не было php-кода:

  nginx:
      image: nginx:alpine
      ports:
          - 9731:80
      volumes:
          - './config/nginx/:/etc/nginx/conf.d/'

Как минимум нужно прокинуть публичную папку, где лежит точка входа (напр. index.php):

  nginx:
      image: nginx:alpine
      ports:
          - 9731:80
      volumes:
          - './config/nginx/:/etc/nginx/conf.d/'
          - '../public/:/var/www/public'

урок 13.1 Задача 3

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

var i, j: integer;
begin
  i := 1; 
 
  repeat 
 
    j := 1; 
    while (j<=9) do 
      begin
        write(i, '*', j, '=', i*j, ' ');
        j:=j+1; 
      end;
 
    writeln(); 
    i:=i+1; 
 
  until (i > 9);  
 
  readln();
end. 

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

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

Решение:

program Project1;
var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
    begin
      j:=1;
      while j<=9 do
        begin
          write(i, '*', j, '=', i*j, ' ');
          j:=j+1;
        end;
        writeln();

      i:=i+1;
    end;

   readln();
end.                      

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

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:

1x1 = 1
1x2 = 2
......

var i, j: integer;
begin
  i := 1;

  repeat

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

    until (i <> 9);

  until (i >= 10);

  readln();
end.      

Урок 12.2 Задача 3

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

№1

Урок 12.2 Задача 1

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

№1

в этой программе выводятся числа от 5 до 34

№2