fkn+antitotal

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

var k, n, d: integer;
begin
  k := 2;
  n := 14;
  d := 7;
 if ((k + n) > 20) or ((n * d) < 55) then
 writeln('Draw') else
 writeln('Kolya Win');



 readln();
end.
          

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

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

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

var a, b: integer;

begin
    readln(a);
    readln(b);
    if (a > b) then
       writeln(a) else
       writeln(b);
    readln();
end.     <pre class="brush: php"></pre>

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

var a, b, c: integer;

begin
  a := 18;
  b := 19;
  c := 9;
  if ((a > 17) and (b > 17) and (c > 7)) then
     writeln('Yes') else
     writeln('No');
  readln();
end.      

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

var a, b, c: integer;

begin
  a := 9;
  b := 5;
  c := 1;
  if (a < b) and (a > c) then
     writeln('Yes') else
     writeln('No');
  readln();
end.  

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

var a, b: integer;

begin
  a := 6;
  b := 8;
  if (a > b) then
     writeln('12') else
     writeln('888');
  readln();
end. 

http://fkn.ktu10.com/?q=node/7341

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

link

У вас есть три числа (три переменные) найдите их медиану.

program lesson9_13;
var
  a, b, c: integer;
begin
   a := 30;
   b := 25;
   c := 20;
   if (a > b) and (a < c) or (a < b) and (a > c) then
      writeln(a, ' - mediana')
   else if (b > a) and (b < c) or (b < a) and (b > c) then
      writeln(b, ' - mediana')
   else if (c > a) and (c < b) or (c < a) and (c > b) then
      writeln(c, ' - mediana');
   readln();
end.  

link

Изучите код:

var s:integer;
    f:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    s:=1;
  else
    s:=2;
 
  if (b=false) then
    s:=3;
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

link

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