Вчем состаят три основных спасоба поиска информации во всемирной паутине?
257
378
Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
незнайка290126.08.2022 15:24
-
mereysi1103.10.2021 14:47
-
ruha2005042028.10.2020 12:49
-
yogurtq201827.01.2021 05:44
-
Vova8989827.08.2021 02:08
-
ilya7klass31.05.2023 20:17
-
avruchka713.01.2022 10:15
-
DigroTube27.12.2021 15:55
-
MaveJ05.05.2023 11:28
-
zetexer126.10.2022 21:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.