profile
Опубликовано 6 лет назад по предмету Информатика от бобо

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

  1. Ответ
    Ответ дан Gilbord
    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.



Самые новые вопросы