fkn+antitotal

Урок 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 для поддоменов, то придется выставить и эти заголовки, продублировов их, например:

Урок 15 задача 10

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:

|1|5|4|5|6|7|8|

-- функция должна "сообщить", что он неуникальный
а для:

|1|15|4|5|6|7|8|

-- что уникальный.

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

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

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

консоль

vvedite dva celih chisla:
21
10
12

Урок 7 задача 3

Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.

Урок 7 задача 2

Получите от пользователя значения переменной, сравните его со значением символа пятёрки 5 и выведите результат сравнения на экран.

program Project1;
var f: char;
begin
  write('Введи символ. Переменную и я сравню её с 5 f = ');
  readln(f);
  write(f = '5');

  readln();
end.     

Консоль:

Введи символ. Переменную и я сравню её с 5 f = 5
TRUE