.Помогите.....Задача на паскаль. Известны год и номер месяца рождения человека, а также год и номермесяца сегодняшнего дня. определить возраст человека и число полных месяцев. при определении разность между номером месяцев. нап...
.Помогите.....Задача на паскаль. Известны год и номер месяца рождения человека, а также год и номер
месяца сегодняшнего дня. определить возраст человека и число полных месяцев. при определении разность между номером месяцев. например, если месяц рождения февраля, а текущий месяц май, то число полных месяцев равно трем независимим от дня рождения и сегоднешнего дня....
Гость
Ответ(ы) на вопрос:
Гостьvar
m, y, mr, yr, mf, yf: integer;
begin
write('введите месяц и год рождения: ');
readln(mr, yr);
write('введите месяц и год расчета: ');
readln(m, y);
yf := y - yr;
mf := m - mr;
if mf < 1 then
begin
yf := yf - 1;
mf := mf + 12
end;
writeln('Прожито лет- ', yf, ', месяцев- ', mf)
end.
Тестовое решение:
введите месяц и год рождения: 8 1976
введите месяц и год расчета: 3 2014
Прожито лет- 37, месяцев- 7
Не нашли ответ?
Похожие вопросы