fkn+antitotal

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

Пользователь вводит два числа, найдите из них максимальное.

var A, B: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  if (A>B) then
     writeln(A);
  if (B>A) then
     writeln(B);
  if (A=B) then
     writeln('A=B');
  readln();
end.

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

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

Подсказки:

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

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