fkn+antitotal

урок 6 задача 14

Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом (одновременно второе меньше четвертого).

var
a,b,c,d:integer;
b1:boolean;
 
begin
   write('ведите числоA, B, C, D: ');
   read(a, b, c, d);
   readln();
   b1:=(A > C) and (B < D);
   writeln('результат=  ', b1);
   readln();
end.v

урок 6 задача 13

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7».

var
a,b,c:integer;
b1, b2:boolean;
 
 
begin
   write('ведите число A, B, C: ');
   read(a, b, c);
   readln();
   b1:=(A and B) > 17;
   b2:=(C > 7);
   writeln('результат: ', '(A and B) > 17 =  ',b1);
   write('результат: C > 7 = ', b2);
   readln();
end.  

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var a, b, c: integer;
  begin
    writeln('Vvedite chisla: a, b, c: ');
    readln(a, b, c);
    if ((a > b) and (a < c)) or ((a > c) and (a < b)) then
    writeln('Da')
    else writeln('Net');
    readln
  end.    

консоль

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a,b: integer;
begin
  writeln('vvedite dva celih chisla: ');
  readln(a, b);
  if (a > b) then
     writeln( 12)
  else
     writeln(888);
  readln();
end. 

консоль

vvedite dva celih chisla:
1
2
888

vvedite dva celih chisla:
3
2
12

Основная идея переключения между сценами изложена здесь.
Ниже приведем пример с использованием массива конфигурации, который позволяет легко добавить сколько угодно сцен, не исправляя условии блоков if (что удобно для поддержки не программистом):

Задача: отвечать на запрос типа OPTIONS, без обращения к приложению, а сразу - на уровне nginx.

Предположим что у вас была конфигурация:

server {
    listen 80;
    server_name nestproxy.loc;
    
    location / {
        #timeouts
        proxy_read_timeout     20;
        proxy_connect_timeout  20;
        proxy_send_timeout     20;
      
    }
}

Добавляем провеку $request_method и используем return:

Урок 9 Задача 7

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

Урок 9 Задача 7

Пользователь вводит четыре числа, найдите из них максимальное.

var A, B, C, D, Max: integer;
begin
  readln(A);
  readln(B);
  readln(C);
  readln(D);
  if (A>B) then
     Max:=A
  else
      Max:=B;
  if (C>Max) then
     Max:=C;
  if (D>Max) then
     Max:=D;
  writeln(Max);
  readln();
end.

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

Пользователь вводит три числа, найдите из них максимальное.

var A, B, C: integer;
begin
  readln(A);
  readln(B);
  readln(C);
  if ((A>B) and (A>C)) then
     writeln(A);
  if ((B>A) and (B>C)) then
     writeln(B);
  if ((C>A) and (C>B)) then
     writeln(C);
  if (A=B) and (B=C) then
     writeln('chisla ravny');
  readln();
end.

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

Пользователь вводит два числа, найдите из них максимальное.

var A, B: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  if (A>B) then
     writeln(A);
  if (B>A) then
     writeln(B);
  if (A=B) then
     writeln('A=B');
  readln();
end.