fkn+antitotal

Урок 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.

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

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

var A, B, C: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  readln(C);
  if (A>17) then
     if (B>17) then
        if (C>7)then
           bool:=True
        else
            bool:=False
     else
         bool:=False
  else
  bool:=False;
  writeln(bool);
  readln();
end.

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

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

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

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

var num1, num2 : integer;
begin
  writeln ('enter the first number');
  readln(num1);
  writeln ('enter the second number');
  readln(num2);
  if (num1>num2) then
     writeln ('12')
  else
      write ('888');
  readln();
end. 

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

Итак пусть у вас есть сцены для следующих ширин окна (в порядке от минимальной до максимальной), всего 4-ре варианта:

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var num1, num2 : integer;
begin
  writeln ('enter the first number');
  readln(num1);
  writeln ('enter the second number');
  readln(num2);
  if (num1>num2) then
    write ('12');
  readln();
end.

Можно переопределить формат ответа для указанного типа кода, напр. для 504, используя определение внутри секции server:

error_page 504 /504.html;
location /504.html{
  internal;
  add_header 'Content-Type' 'application/json charset=UTF-8';
  return 504 '{"statusCode":504, "message":"Gateway Timeout Error"}';
}

Если вам нужно сохранить настройки CORS для поддоменов, то придется выставить и эти заголовки, продублировов их, например: