fkn+antitotal

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
1)сумма баллов Коли и Миши больше 20
2)или произведение баллов Пети и Миши меньше 55

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

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

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

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

var
  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);

    writeln('max:');
    if ( a > b ) then
    writeln(a)
    else
    if (b > a)  then
    writeln(b);

    readln ();
  end.
          

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

var
  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    if ( a > 17 ) and ( b > 17) and ( c > 7 ) then
    writeln('da')
    else
    writeln('net');
    readln ();
  end.
          

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

var
  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    if ( a > b ) and (a < c) then
    writeln('da')
    else
    writeln('net');
    readln ();
  end.
        

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

var a,b: integer;

begin
    writeln('Vvedite chisla: ');
    readln (a,b);

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

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

Изучите код:

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

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

Решение:

Если нужен текстовый поиск, то можно из главного меню:

Search
 -> DB Full-Text