Question

Составить программу в Паскале
 Составить программу, чтобы компьютер запросил имя пользователя и
его  год рождения, затем подсчитал
количество лет, дней и минут, прожитых, примерно, этим человеком. Результаты вывести
на экран.

Answer 1

type ye=1850..2100;
var year, year1:ye;
    name:string;
    a:integer;

begin
writeln('Какой сейчас год?');
readln(year);
writeln('Твое имя?');
readln(name);
writeln('В каком году ты родился(родилась)?');
readln(year1);
a:=year-year1;
writeln('Твое имя ', name);
writeln('Ты прожил ', a, ' Лет(года)');
writeln('Ты прожил приблизительно ', a*365, ' дней');
writeln('Ты прожил приблизительно ', a*364*24, ' часов');
end.