Ответы на вопрос:
Эта клавиша предназначена для исполнения двух основных функций: для выбора либо перехода между несколькими элементами или диалоговыми окнами с комбинаций клавиш (эта функция отлично выручает, если не работает мышка)
Const n = 10; var x: array[1..n] of integer; i: integer; flag: boolean; begin randomize; write('элементы массива: '); for i : = 1 to n do begin x[i] : = random(10000); write(x[i]: 5) end; i : = 1; flag : = false; while (i < = n) and (not flag) do begin flag : = (x[i] > = 99) and (x[i] < = 1000); if (not flag) then i : = i + 1 end; writeln; if flag then writeln('найден элемент: ', x[i]) else writeln('искомого числа нет') end. тестовое решение: элементы массива: 4136 4921 244 1489 1714 5731 4187 7990 1974 113 найден элемент: 244 const n = 13; var x: array[1..n] of integer; i: integer; flag: boolean; begin randomize; write('элементы массива: '); for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4) end; i : = n; flag : = false; while (i > 0) and (not flag) do begin flag : = (x[i] > = -10) and (x[i] < = 20) and (x[i] mod 3 = 0); if (not flag) then i : = i - 1 end; writeln; if flag then writeln('найден элемент: ', x[i]) else writeln('искомого числа нет') end. тестовое решение: элементы массива: 21 -45 -12 9 -36 42 -49 -48 37 48 -43 26 -34 найден элемент: 9 var n: longint; s: string; k, er: integer; begin write('введите натуральное число-> '); readln(n); str(n, s); val(s[1], k, er); if (k mod 2 = 0) then writeln('первая цифра числа четная') else writeln('первая цифра числа нечетная') end. тестовое решение: введите натуральное число-> 36434523 первая цифра числа нечетная function nod(a, b: integer): integer; begin while a < > b do if a > b then a : = a - b else b : = b - a; nod : = a end; var a, b, c: integer; begin write('введите через пробел три целых числа: '); readln(a, b, c); writeln('нод(a,b)+нод(b,c)=', nod(a, b) + nod(b, c)) end. тестовое решение: введите через пробел три целых числа: 2048 512 4262 нод(a,b)+нод(b,c)=514
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Br0shn1k02.09.2022 19:34
-
Dermo23802.03.2020 11:36
-
ника276009.10.2022 09:25
-
ТыУмНыЙ05.04.2021 23:25
-
Vvyq20.08.2022 12:58
-
лщутлзутсзо03.03.2020 15:33
-
Shkaf225.06.2022 00:25
-
Sausage228125.09.2022 18:30
-
yuluto31.03.2023 02:43
-
alekshaino14.02.2021 21:26
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.