(кто знает паскаль) дана программа: var g: integer; i: integer; begin readln(g); if (g> =0) and (g< =100) then i: = 1; if (g> =101) and (g< =200) then i: = 2; if (g> =201) and (g< =300) then i: = 3; if (g> =301) and (g< =400) then i: = 4; if (g> =401) and (g< =500) then i: = 5; if (g> =501) and (g< =600) then i: = 6; if (g> =601) and (g< =700) then i: = 7; if (g> =701) and (g< =800) then i: = 8; writeln(i) end. можно ли сократить ее? и как, каким оператором?
157
486
Ответы на вопрос:
Var g, i, j, m, n: integer; begin m : = 100; read(g); for j : = 1 to 8 do begin if(g > = n) and (g < = m) then i : = j; if (j = 1) then n : = n + 1; n : = n + 100; m : = m + 100; end; write(i); end.
в реляционной бд информация организована в виде:
ответ: д) связанных таблиц
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
NickWorld07.02.2021 05:30
-
Pharaonua07.08.2021 20:02
-
777angel777likoy8mjs30.11.2020 07:51
-
ALINAscool989821.03.2021 07:45
-
averina128.03.2022 05:14
-
0Lvovich025.05.2020 19:42
-
айрин42931.08.2021 19:50
-
melnikowapolia24.10.2022 16:57
-
Петья01.06.2022 14:11
-
slobodzean0226.05.2021 10:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.