Определить, сколько полных лет пользователю, если сегодня 16.02.2012 - Pascal ABC
Формулировка задачи:
С клавиатуры вводится дата рождения в виде трех чисел (a – день, b – месяц, с – год). Определить, сколько полных лет пользователю, если сегодня 16.02.2012.
Решение задачи: «Определить, сколько полных лет пользователю, если сегодня 16.02.2012»
textual
Листинг программы
var pl,d,m,g,d2,m2,g2:real; begin d:=16; m:=2; g:=2012; read(d2,m2,g2); pl:=g-g2; if (d2<d) and (m2<m) then pl:=g-g2-1; write('polnyh let ', pl); end.
Объяснение кода листинга программы
- Объявлены переменные: d, m, g, d2, m2, g2 (реальные числа)
- Заданы начальные значения переменных: d := 16 m := 2 g := 2012
- С помощью функции read() введены значения переменных d2, m2, g2: read(d2,m2,g2)
- Вычислено значение переменной pl: pl := g - g2
- Если дата ввода пользователя меньше текущей даты, то вычитается 1 из значения переменной pl: if (d2 < d) and (m2 < m) then pl := g - g2 - 1
- Выведено сообщение с значением переменной pl: write('polnyh let ', pl)
- Код завершается.