Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего...

0 голосов
335 просмотров

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


Информатика (36 баллов) | 335 просмотров
0

а где все числа не че непонять!

0

Эм...можно по подробнее?

0

да уж непонять нечего!

Дан 1 ответ
0 голосов

Учитесь, любители)
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.
должно заработать