Написание на языке Паскаль.. Работа и путешествия
Организация “Travel & Work” предоставила список из 10 стран, в которых можно поработать в летнее время, и стоимости проезда в ука-занные страны. Получив этот список и изучив условия проезда мечта-тельная Даша решила, не утруждать себя работой, а просто объездить эти страны, посмотреть на мир, себя показать…
Определить в какую сумму обойдется Даше это турне по миру. Определить также страны с максимальной и минимальной стоимостью проезда.
Ответы на вопрос:
--- PascalABC.NET 3.6.2 ---
//Без внятного ТЗ - Результат ХЗ (с) Конфуций, 488 год до Н.Э.
begin
var AvaiableTravels := new List<(string, integer)>(10);
var RawInput: array of string;
for var i := 1 to 10 do begin
RawInput := ReadString($'{i} Enter Travel info (Country:Price)').Split(':');
AvaiableTravels.Add((RawInput[0], integer.Parse(RawInput[1])));
end;
var TotalCost : integer;
var MaxCost: (string, integer) := AvaiableTravels.First;
var MinCost: (string, integer) := AvaiableTravels.Last;
AvaiableTravels.ForEach(p -> begin
TotalCost += p.Item2;
if p.Item2 > MaxCost.Item2 then MaxCost := p;
if p.Item2 < MinCost.Item2 then MinCost := p;
end);
Println($'Total Travel Cost: {TotalCost}',
$'Most expensive Travel: {MaxCost}',
$'Most poor travel: {MinCost}');
end.
Объяснение:
// PascalABC.NET
begin
var L := new List <(string, integer)>;
foreach var s in ReadSeqString(10) do
begin
var i := Trim(s).LastIndexOf(' ') + 1;
if i <= 1 then Exit; // надо вводить корректно!
L.Add((s[:i],s[i+1:].ToInteger));
end;
Println('Сумма турне:', L.Sum(p -> p[1]));
Println('Страна с самым дешевым проездом:',
L.MinBy(p -> p[1])[0]);
Println('Страна с самым дорогим проездом:',
L.MaxBy(p -> p[1])[0])
end.
![Написание на языке Паскаль.. Работа и путешествияОрганизация “Travel & Work” предоставила список](/tpl/images/3771/3665/d198b.jpg)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Mila67214.07.2020 15:40
-
Natsha8825.03.2022 08:38
-
Mirajanesan20.10.2020 20:05
-
тата28324.04.2021 09:11
-
LaiZyHero16.07.2020 01:13
-
brain0926.04.2021 16:19
-
kiranovm1407.11.2021 02:56
-
Стас66622827.07.2020 02:56
-
DeFauLD04.02.2023 10:10
-
Alidisa120228.01.2023 15:59
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.