Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь - 1 и т. д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.

Question

Информатика

Ила

29 августа, 23:06

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь - 1 и т. д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.

+5

Ответы (1)

Знаете ответ на вопрос?

Макар · Answer 1

Учитесь, любители)

program prosto tak;

uses crt;

var

x, y, a, b, i, k:integer;

begin

readln (x, y) ;

readln (a, b) ;

k:=0;

k:=a-x;

if (b>y) or (b=y) then k:=k+1;

writeln (k) ;

readln;

end.

должно заработать