Определить, сколько полных лет пользователю, если сегодня 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.

Объяснение кода листинга программы

  1. Объявлены переменные: d, m, g, d2, m2, g2 (реальные числа)
  2. Заданы начальные значения переменных: d := 16 m := 2 g := 2012
  3. С помощью функции read() введены значения переменных d2, m2, g2: read(d2,m2,g2)
  4. Вычислено значение переменной pl: pl := g - g2
  5. Если дата ввода пользователя меньше текущей даты, то вычитается 1 из значения переменной pl: if (d2 < d) and (m2 < m) then pl := g - g2 - 1
  6. Выведено сообщение с значением переменной pl: write('polnyh let ', pl)
  7. Код завершается.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы