Написать программу, которая будет определять возраст.

Question

Информатика

Лизуха

21 сентября, 21:18

Написать программу, которая будет определять возраст.

+1

Ответы (1)

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

Артемьюшка · Answer 1

Program voz;

uses crt;

var a, b, c, d, e, f : integer;

begin

Write ('Какая сейчас дата? (д м г) ') ;

Read (a, b, c) ;

write ('Введите дату вашего рождения (д м г) ') ;

read (d, e, f) ;

if (b>=e) and (a>=d) then Writeln ('Вам ', c-f,' лет') else writeln ('Вам ', c-f-1,' лет') ;

end.