Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.