fkn+antitotal

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

1 Вариант

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

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

program Project1;
var a, b:integer;
begin
  writeln('Введите 2 числа: ');
  readln(a, b);
  if (a > b) then
     writeln( 'a bolshe b')
  else
     writeln( 'b bolshe a')
  readln();
end.    

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

Способ 1:

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

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

|1|-3|5|-3|9|5|8|

получим:

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

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

a,b,c: integer;
begin
  writeln('Введите три числа через Enter: ');
  readln(a, b, c);

  if ((a and b > 17) and (c > 7)) then
     writeln('да')
  else
    writeln('нет');

  readln(); 

Консоль:

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

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

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

var a,b: integer;
begin
  writeln('Введите два числа через Enter: ');
  readln(a, b);

  if (a > b) then
     writeln(12)
  else
    writeln('888');

  readln();
end.  

Консоль:

Введите два числа через Enter:
1
2
888

Введите два числа через Enter:
4
3
12

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

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

var a,b: integer;
begin
  writeln('Введите 2 числа через Enter: ');
  readln(a, b);

  if (a > b) then
  begin
     writeln(12);
  end;

  readln();
end.        

Консоль:

Введите 2 числа через Enter:
1
0
12

1. Разрешаем ставить приложения, скачанное из любых источников

MacOS Big Sur

Действуем так:

1. В терминале ввести
   

   sudo spctl --master-disable/pre>

2. После этого переходим в System Preferences/Security & Privacy/General, и далее, поставить чекбокс "Allow apps downloaded from" в положение "Anywhere"