Друзья вася, виталя, рома и саша по утрам ходят в школу вместе. поскольку вася живет дальше всех от школы, то на своем пути он заходит за каждым из . однажды рому заинтересовал вопрос о том, каково расстояние от его дома до школы? и он обратился к васе, который наверняка должен это знать, так как его прогулка до школы самая продолжительная. однако, вася смог только вспомнить расстояния от ромы до саши и витали, а также расстояния от саши и витали до школы. на основании информации от васи роме вычислить расстояние от его дома до школы.
входные данные
в первой строке входного файла input.txt содержатся четыре целых числа, разделенные пробелами: a – расстояние от саши до школы, b – расстояние от витали до школы, x – расстояние от ромы до саши и y – расстояние от ромы до витали. все расстояния указаны в метрах (1 ≤ a < b ≤ 1000; 1 ≤ x, y ≤ 1000).
гарантируется, что числа a, b, x, y соответствуют какому-то возможному расположению в маршруте васи.
230
415
Ответы на вопрос:
"типовой школьный" паскаль: // pascalabc.net 3.0, сборка 1064 const k = 100; var s, wd: string; i, j, m, n, pt, step: integer; words, wordssort: array[1..k] of string; inorder: boolean; begin write('введите строку: '); readln(s); n : = length(s); pt : = 1; m : = 0; repeat // пропускаем все символы до первого непробельного while pt < = n do if ord(s[pt]) < = 32 then inc(pt) else break; if pt < = n then begin // выделяем очередное слово wd : = ''; while pt < = n do if ord(s[pt]) > 32 then begin wd : = wd + s[pt]; inc(pt) end else break; if wd < > '' then begin inc(m); words[m] : = wd end end until pt > n; // теперь words содержит все m слов. // отсортируем их в массиве wordssort методом шелла for i : = 1 to m do wordssort[i] : = words[i]; step : = m div 2; while step > 0 do begin for j : = m - step downto 1 do begin i : = j; while i < = m - step do begin if wordssort[i] > wordssort[i + step] then begin wd : = wordssort[i]; wordssort[i] : = wordssort[i + 1]; wordssort[i + 1] : = wd end; i : = i + step end end; step : = step div 2 end; // осталось поэлементно сравнить оба массива inorder : = true; i : = 1; while inorder and (i < = m) do begin inorder : = (words[i] = wordssort[i]); inc(i) end; if m = 0 then writeln('строка не содержит слов') else if inorder then writeln('cлова ') else writeln('cлова не ') end. тестовое решение: введите строку: слово1 слово2 слово3 слово4 слово5 cлова введите строку: слово1 слово2 слово4 слово3 слово5 cлова не "современный" вариант решения на паскале: // pascalabc.net 3.0, сборка 1064 var s: string; begin write('введите строку: '); readln(s); var delim: =range(0,32).select(x-> chr(; var words: =s.split(delim).where(x-> x< > ''); var wordssort: =words.sorted; if words.sequenceequal(wordssort) then writeln('cлова ') else writeln('cлова не ') end. тестовое решение совпадает с .
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
tanyagag29.06.2022 21:28
-
Evgeniasvavilna19.06.2023 05:11
-
sapunovegor2213.10.2022 05:59
-
antoxor15.05.2022 15:39
-
SMILЕ3117.11.2021 22:14
-
Elmir0304200303.10.2022 07:21
-
natahakovbasuk16.01.2020 23:13
-
зелемхан117.02.2020 01:53
-
nanakiriya03.04.2022 05:57
-
Alniri01.06.2021 21:31
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.