Информатика задачи на 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 лет?
Текстовый редактор Microsoft Word предназначен для набора текста с клавиатуры, а также редактирования, копирования, создания таблиц, одним словом для того, чтобы созданный Вами документ выглядел максимально привлекательно, стильно и информативно. С вы можете составить такие документы как:
оформить курсовую или дипломную работу;
составить резюме кандидата на должность;
напечатать заявление о приеме на работу;
подготовить многомиллионный договор на поставку товара;
сочинить и отредактировать для печати целый роман.
Другими словами, текстовый редактор Microsoft Word, будет полезен абсолютно любому пользователю компьютера, который так или иначе связан с текстовыми документами.
function DelWord(s:string):string;
var
i,n:integer;
begin
n:=length(s);
i:=n;
repeat
if i>=1 then Dec(i);
until s[i]=' ';
Delete(s,i+1,n-i);
DelWord:=s
end;
var
st:string;
begin
Write('Введите строку: '); Readln(st);
Writeln('Результат: ',DelWord(st))
end.
Тестовое решение:
Введите строку: А роза упала на лапу Азора
Результат: А роза упала на лапу
//PascalABC.Net
function DescDigits(s:string):boolean;
var
desc:boolean;
i,n:integer;
c1,c2:char;
begin
n:=length(s);
desc:=true;
c1:='A'; { главное, чтобы символ был "старше" любой цифры }
i:=1;
repeat
c2:=s[i];
if c2 in ['0'..'9'] then
if c2<c1 then c1:=c2 else desc:=false;
Inc(i)
until (i>n) or (not desc);
DescDigits:=desc
end;
var
s:string;
begin
Write('Введите строку: '); Readln(s);
if DescDigits(s) then Writeln('true') else Writeln('false')
end.
Тестовое решение:
Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно!
true
Вариант первой программы для Borland Pascal 7.01
uses Crt;
function DelWord(s:string):string;
var
i,n:integer;
begin
n:=length(s);
i:=n;
repeat
if i>=1 then Dec(i);
until s[i]=' ';
Delete(s,i+1,n-i);
DelWord:=s
end;
var
st:string;
begin
ClrScr;
Write('Введите строку: '); Readln(st);
Writeln('Результат: ',DelWord(st));
ReadKey
end.