if then else

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

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

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

1 вариант:

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

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

var a,b,c:integer;
begin
  writeln('Vvedite chislo A: ');
  readln(a);
  writeln('Vvedite chislo B: ');
  readln(b);
  writeln('Vvedite chislo C: ');
  readln(c);
  if ((a>b)and(a<c))or((a<b)and(a>c)) then
    writeln('DA')
  else
    writeln('NET');
  readln();
end.

Вывод консоли:

Задача №3 из главы 9

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

Задача №2 из главы 9

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

var a, b: integer; // секция объявления переменных
begin  // начало тела программы
    writeln('vvedite cisla a i b: ');
    readln(a,b);
    if (a < b) then // если истина
      writeln(12)
    else
      writeln('888');// если ложно
    readln(); // удерживаем консоль
end. // конец тела программы