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

169

480

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

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

Бигль02

Информатика

4,5(18 оценок)

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.

Богатство87

Информатика

4,6(18 оценок)

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

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

Задай свой вопрос

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

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

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

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

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

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

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