fkn+antitotal

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

Урок 10. Задача 5

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i,a: Integer;
begin
readln(a);
begin
if a>100 then
    for i:=a downto 1 do
    write(i, ' ')
else
    for i:=1 to a do
    write(i, ' ')
end;
readln();
end.  

консоль:

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

  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(a)
    else
    if (b > a ) and ( b < c ) then
    writeln(b)
    else
    if (c > a ) and ( c < b ) then
    writeln(c);
    readln ();
  end.
         

Изучите код:

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, с сохранением той же логики работы программы.

Подсказки:

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

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

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

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

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

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

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