1. Определите, в каком отрезке содержатся все элементы этого массива:
for i:=1 to N do
A[i]:=20+random(81);
ответ: ? <= A[i] <= ? (для всех i от 1 до N).
286
385
Ответы на вопрос:
Несколько вариантов: program strtoint; uses crt; var st : string; num : integer; function val1 (s : string) : integer; var i, res : integer; s1 : string; begin s1 : = ''; res : = 0; for i: =1 to length(s) do case s[i] of '0' : s1 : = s1+'0'; '1' : s1 : = s1+'1'; '2' : s1 : = s1+'2'; '3' : s1 : = s1+'3'; '4' : s1 : = s1+'4'; '5' : s1 : = s1+'5'; '6' : s1 : = s1+'6'; '7' : s1 : = s1+'7'; '8' : s1 : = s1+'8'; '9' : s1 : = s1+'9'; end; val (s1, res); if s[1]='-' then res : = res * -1; val1 : = res; end; function isnumber (ch : char) : boolean; var res : boolean; begin res : = false; case ch of '0' : res : = true; '1' : res : = true; '2' : res : = true; '3' : res : = true; '4' : res : = true; '5' : res : = true; '6' : res : = true; '7' : res : = true; '8' : res : = true; '9' : res : = true; end; isnumber : = res; end; function val2 (s : string) : integer; var i, res : integer; begin res : = 0; for i: =1 to length(s) do begin if isnumber(s[i]) then res : = res*10 + byte(s[i])-byte('0'); end; val2 : = res; end; begin write('input a string: '); readln(st); val(st, num); writeln('standart function: ', num); num : = val1(st); writeln('function val1: ', num); num : = val2(st); writeln('function val2: ', num); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
BlackElegant18.10.2020 04:06
-
Asetkyzy25.02.2021 08:30
-
liyaleonteva147котик05.08.2021 19:11
-
маріна201726.12.2022 12:40
-
polinaandreeva1015.11.2022 07:16
-
bluegirl29.09.2021 17:40
-
linagurova654505.05.2021 12:34
-
dimonnovikov022.10.2021 01:58
-
Nightmare546706.12.2020 09:20
-
vladskills0910.06.2020 19:28
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.