Переведите из десятичной в двоичную систему счисления: 1) 155 2) 137 3) 543
плз
220
474
Ответы на вопрос:
// pascalabc.net 3.0, сборка 1052 const nstud=100; npred=10; type date=record den: byte; mes: byte; god: integer end; st=record datr: date; famnam: string; gender: 0..1; ball: array[1..npred] of 2..5 end; var ns,np,nd,i,j: byte; r: array[1..nstud] of st; dolg,flagp: boolean; cdate: date; begin write('количество студентов: '); read(ns); write('количество предметов: '); read(np); writeln('вводите данные по каждому студенту'); writeln('в первой строке через пробел дата рождения дд мм '); writeln('во второй строке фамилия, пробел, имя'); writeln('в третьей строке пол (0 - мужской, 1 - женский)'); writeln('в четвертой строке полученные через пробел'); for i: =1 to ns do begin writeln('*** студент ',i,' ***'); with r[i] do begin readln(datr.den,datr.mes,datr.god); readln(famnam); readln(gender); for j: =1 to np do read(ball[j]) end end; { *********** 1 *************** } writeln; writeln('список студентов-задолжников'); nd: =0; for i: =1 to ns do begin with r[i] do begin j: =1; dolg: =false; repeat if ball[j]=2 then begin dolg: =true; inc(nd) end; inc(j) until dolg or (j> np); if dolg then writeln(famnam) end end; if nd=0 then writeln('задолжников нет! '); { *********** 2 *************** } writeln; writeln('введите дату запроса в формате дд, мм, : '); read(cdate.den,cdate.mes,cdate.god); writeln; writeln('список студентов, которым исполнилось 20 лет'); nd: =0; for i: =1 to ns do begin with r[i] do begin flagp: =false; if cdate.god-datr.god> 20 then flagp: =true else if cdate.god-datr.god=20 then begin if cdate.mes> datr.mes then flagp: =true else begin if cdate.mes=datr.mes then flagp: =(cdate.den> =datr.den) end end; if flagp then begin writeln(famnam); inc(nd) end; end end; if nd=0 then writeln('нет студентов, которым исполнилось 20 лет! '); end. тестовое решение: количество студентов: 5 количество предметов: 4 вводите данные по каждому студенту в первой строке через пробел дата рождения дд мм во второй строке фамилия, пробел, имя в третьей строке пол (0 - мужской, 1 - женский) в четвертой строке полученные через пробел *** студент 1 *** 5 10 1996 иванов иван 0 4 3 5 5 *** студент 2 *** 12 8 1997 петров петр 0 3 2 3 4 *** студент 3 *** 9 10 1998 сидорова наталья 1 3 4 4 2 *** студент 4 *** 6 9 1994 козлова ирина 1 5 4 4 5 *** студент 5 *** 12 3 1995 тарасов константин 0 3 5 5 4 список студентов-задолжников петров петр сидорова наталья введите дату запроса в формате дд, мм, : 2 11 2015 список студентов, которым исполнилось 20 лет козлова ирина тарасов константин
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
silva7830.07.2022 22:51
-
netesa020222.09.2022 07:32
-
KOTE42226.07.2022 00:17
-
Нолик2701.06.2021 16:40
-
hfjfifj05.07.2021 13:37
-
Fkrfi134F02.10.2021 23:40
-
Кейл13.07.2020 15:55
-
kirillavinov10.01.2021 20:15
-
verayusupova8613.02.2021 01:19
-
pilotprofix10.04.2023 03:24
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.