В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

Информатика задачи на C++: 1.Ежедневно вам приходит огромное количество писем с предложениями по улучшению города. Вы - справедливый и мудрый Мэр, поэтому стараетесь прислушиваться к мнению горожан, и раз в месяц выбираете лучшее предложение из всех, чтобы воплотить его в жизнь. За это вас и любят горожане: и старики, и молодежь, и даже дети. И каждый хочет сделать свой город лучше.

Аналитики разобрали гору писем и сформировали список из C предложений. В этом списке они указали возраст горожанина age и годовой доход income в сентиннеалях от его предприятия. Взглянув на сводную таблицу предложений, вы, конечно, сразу поняли, что не ко всем стоит прислушиваться.

Предложения детей (1<=age<=12) рассматривать бессмысленно, а предложения более взрослых людей (30<=age) имеют преимущество перед предложениями молодежи (13<=age<=29) (в силу огромного жизненного опыта).

Ваша задача - выбрать предложение от гражданина с наибольшим доходом. При этом если доход представителя молодежи не превышает доход представителя старшего поколения хотя бы на сто тысяч сентиннеалей в год, то предпочтение отдается предложению представителя старшего поколения.

К примеру, между предложением 19-летнего Джексона с доходностью 200 000 сентиннеалей и 60-летнего Мюррея с доходностью 120 000 сентиннеалей, выберут Мюррея (да, его предприятие на 80 тысяч менее доходно, но у него же опыт!). А из предложений Мюррея и 20-летней Элис с доходностью 250 000 сентиннеалей, выберут Элис, потому что доходность её предложения на 130 тысяч больше, чем у Мюррея.
2.Выбрав, наконец, лучшее предложение, вы увидели новые письма, лежащие на вашем рабочем столе. Наверху стопки была яркая, разрисованная бумага, на которой детским почерком была написана мечта о проведении большого праздника для всего Космополиса. Яркие картинки навели вас на мысль, что доход не является самой главной целью, и вы решили провести у себя в городе ряд фестивалей, чтобы все жители могли отдохнуть и насладиться жизнью в Космополисе!

Министр культуры определил, что фестивали можно проводить только в субботу 5-го или субботу 6-го числа любого месяца, а также в четверг каждого числа, кратного n (n меняется от года к году), любого месяца.

Необходимо определить все возможные даты проведения фестивалей на ближайший год, если первое января был k-ый день недели (где k=1 - понедельник, а k=7 - воскресенье).
3.Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пришли к необходимости расширения вашего Космополиса до нового уровня. После многих совещаний и огромной бюрократической волокиты вам удаётся присоединить две новые области к вашему городу: доход первой составляет 100 тысяч сентиннеалей в год, а доход второй - 200 тысяч. При этом, у вас имеется план по развитию этих областей.

Каждый год вы собираете общих доход с двух областей и все собранные деньги вкладываете в менее доходную из них, увеличивая её размер и доходность. При этом к концу следующего года она принесёт столько денег, сколько было в неё вложено. Так, к концу первого года вы собираете 300 тысяч сентиннеалей и уже через год у вас есть две области: одна приносит 200 тысяч, а другая (модернизированная) - 300 тысяч сентиннеалей.

Рассчитайте, какая доходность будет у крупнейшей из двух областей спустя L лет при условии ежегодной модернизации, а также каков суммарный доход, приносимый областями за все L лет?

Показать ответ
Ответ:
Ariya03
Ariya03
11.02.2022 01:13
Var   a: array[1..20,1..20] of integer;   n,m,i,j,min,jm,x: integer; begin   randomize;   write('Введите размеры массива: ');   readln(n,m);   writeln('Исходный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       a[i,j]:=random(19)-9;       write(a[i,j]:4);     end;     writeln;   end;   min:=0;   for i:=1 to n do min:=min+a[i,1];   writeln('Сумма элементов 1-го столбца = ',min);   jm:=1;   for j:=2 to m do   begin     x:=0;     for i:=1 to n do       x:=x+a[i,j];     writeln('Сумма элементов ',j,'-го столбца = ',x);     if x<min then     begin       min:=x;       jm:=j;     end;   end;   writeln('Минимальная сумма в ',jm,'-м столбце');   writeln('Полученный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       if j<>jm then a[i,j]:=a[i,jm];     write(a[i,j]:4);     end;     writeln;   end;   readln; end.
0,0(0 оценок)
Ответ:
ZnAnIjAbro
ZnAnIjAbro
11.12.2022 16:26
А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота