Есть ответ 👍

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

169
480
Посмотреть ответы 2

Ответы на вопрос:


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.

Const   mm = 10;   nn = 8; type   m = array[1..mm, 1..nn] of integer;   ks = array[1..2, 1..nn] of integer; procedure getks(var a: m; var b: ks; m, n: integer); { помещает в b[1,*] суммы отрицательных элементов массива а[m,n] по столбцам,   а в b[2,*] - количества этих элементов } var   i, j, s, k: integer; begin   for j : = 1 to n do   begin       k : = 0; s : = 0;       for i : = 1 to m do           if a[i, j] < 0 then begin s : = s + a[i, j]; inc(k) end;       b[1, j] : = s; b[2, j] : = k   end end; procedure init(var a: m; m, n: integer); { заполняет массив a[m,n] случайными значениями на интервале [-50; 50]   и выводит их на экран } var   i, j: integer; begin   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 5)       end;       writeln   end end; procedure outks(var a: ks; n: integer); { выводит на экран элементы массива a[2,n]} var   i, j: integer; begin   for i : = 1 to 2 do   begin       for j : = 1 to n do write(a[i, j]: 5);       writeln   end end; procedure work(var a: m; var b: ks; m, n: integer); { цикл работы с массивом } begin   init(a, m, n);   getks(a, b, m, n);   writeln('суммы и количество');   outks(b, n); end; var   x, y: m;   z: ks; begin   writeln('массив х');   work(x, z, 10, 8);   writeln;   writeln('массив y');   work(y, z, 6, 8); end. тестовое решение: массив х   -50    49      0    28    -8  -27    -4  -45     10    10    10    27    17    15  -35    47   -22  -42    21    40  -40    -4      1  -49   -21    37      5  -34    26    10  -33  -26       2    27    30  -46    -9    -2    33      2     -3      6    -9  -38  -29  -18  -36    28     -8    39  -16    49  -50    39  -37      5     -2    -2    -2      6    18  -21  -20  -50     -7  -15  -26    40    35  -40      5    31   -25  -31    -8      4  -45  -11    31    48 суммы и количество   -138  -90  -61 -118 -181 -123 -165 -170       8      4      5      3      6      7      6      4 массив y     22    27    24    38  -24  -32  -26    13     14  -25      6    44    50  -24    34  -33   -24  -10    20    36  -43  -25    44  -19   -17      4    23    31    -4      9    -1  -41     17      1    34    42      6    -8    25  -26   -40    11  -24    10      4    12    31    50 суммы и количество   -81  -35  -24      0  -71  -89  -27 -119       3      2      1      0      3      4      2      4

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS