Чайник - модуль 2

Модуль 2. Алгоритмы с проверкой условия (ветвление)

Что делает эта программа?
program m;
    var a, b, m: integer;
    begin
   writeln('Введите два целых числа');
   read ( a, b );
   if a > b then begin
    m:=a; 
   end
   else begin
    m:=b;
   end;
   writeln ( m);
    end.

 Прочитать стр. 14-17 Задачи:

 Z2.1  Определить является ли введенное с клавиатуры число четным (вспомнить функцию mod).

 Z2.2 Одна тетенька произносит К слов в минуту, а другая - С слов. Кто и на сколько больше скажет слов за 3 часа, если они разговаривают одновременно и непрерывно, не слушая друг друга?

 Z2.3 Найти наибольшее из трех введенных с клавиатуры чисел
В программе использовать только два IF и дополнительную переменную max
(Алгоритм: сравниваются два первых числа, после определения максимального из них, запоминаем максимальное в дополнительной переменной max, сравнивается max и третье число и определяется максимальное значение. Значение максимального и есть искомый максимум). Посмотрите решение
Z2.4 Программа-шутка. Написать программу, в результате выполнения которой происходит такой диалог:
Не волнуйтесь, Ваше имя?
Хорошо, Имя! Можно, ли делить на ноль?
Если ответ ДА, то сообщение - Имя, Вам необходимо повторить математику!
Если ответ НЕТ, то сообщение - Имя, молодец!

Z2.5 Задать 3 числа. Найти среди них такое, которое меньше наибольшего, но больше наименьшего

Сложные условия.

Во многих задачах при решении требуется проверка выполнения сразу нескольких условий. При проверке их записывают в скобках и связывают союзами Not, And и Or.Например: (a < b) and (b < c); (a < c) or (b < c) and (b < a);Порядок выполнения : выражения в скобках  - Not - and - or.

Задача. Ввести с клавиатуры 2 натуральных числа: d - день и m - месяц.  определить, нет ли ошибки при вводе.
Решение.
Program Data;
Const dd=30;    {максимальное количество дней}
mm=12;    {максимальное количество месяцев}
Var d, m: integer;
begin   
Write ('Введи день, месяц ');
Readln (d, m);
if(d<=dd) and (m<=mm) then     {должны быть выполнены оба условия}
Writeln ('Дата введена верно ')
else Writeln ('Дата введена неверно ');
end.

Z2.6 Ввести возраст человека (от 1 до 100 лет) и вывести его вместе с последующим словом «год», «года» или «лет».
Z2.7 Ввести с клавиатуры 3 натуральных числа: часы, минуты и секунды  Определить, нет ли ошибки