Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Делители https://www.cyberforum.ru/ pascalabc-net/ thread2509963.html
Задано число n. Требуется найти число от 1 до n, включительно, которое имеет максимальное число положительных целых делителей. Например, если n = 20, то искомое число — 12, у него 6 делителей: 1, 2, 3, 4, 6, 12. ------------------------------------------------------------- Формат входных данных На вход подается одно число n (1 ≤ n ≤ 105)...
найти сумму с точностью E PascalABC.NET
s=3/(x+3)-4/((x+3)(x+4))+5/((x+3)(x+4)(x+5))-...
PascalABC.NET Программа для разложения числа на три целых куба Здравствуйте! Что вы думаете над этим кодом? Можно ли написать как-нибудь по-другому? var n,a,b,c:integer; begin read (n); while ((a*a*a)+(b*b*b)+(c*c*c)<>n) do begin a:= random(-10000000,10000000); b:= random(-10000000,10000000); c:= random(-10000000,10000000); end; https://www.cyberforum.ru/ pascalabc-net/ thread2509624.html PascalABC.NET Задача с сигмой(суммой ряда) https://www.cyberforum.ru/ pascalabc-net/ thread2509611.html
\sum_{k=0}^{100}{-1}^{k}\times \frac{{t}^{2k+1}}{(2k+1)!} Помогите решить
PascalABC.NET Дана последовательность с N элементов, увеличить последовательность
Дана последовательность с N элементов, увеличить последовательность, добавляя после каждого элемента, такой же самый элемент. Пример Было: a1 a2 a3 a4 1 2 5 8 Стало: а1 а2 а3 а4 а5 а6 а7 а8
PascalABC.NET Дано двумерный массив, удалить с массива максимальный элемент и минимальный Дано двумерный массив, удалить с массива максимальный элемент и минимальный. а1 а2 а3 а4 а5 а6 а7 а8 а9 а10 ||4|15|-3|0|-6|9|120|14|-5|9| https://www.cyberforum.ru/ pascalabc-net/ thread2509532.html
PascalABC.NET Найти приближенное значение функции Найти приближенное значение функции при данном значении аргумента с помощью интерполяционного многочлена Лагранжа. x 0,41 0,46 0,52 0,60 0,65 0,72 y 2,57418 2,32513 2,09336 1,86203 1,74926 1,62098 x=0.478 https://www.cyberforum.ru/ pascalabc-net/ thread2509474.html Круги на воде PascalABC.NET
Получить мультфильм "Круги на воде", используя семь концентрических окружностей. Центры окружностей должны быть совмещены с центром экрана, а радиусы изменяться от 42 до 82 пиксел, увеличиваясь на 7 пиксел с каждой следующей окружностью. Иллюзия движения должна создаваться последовательной сменой цветов всех окружностей, начиная с внутренней и кончая внешней. Процесс смены цветов следует...
PascalABC.NET надо написать прогу х елп ани те тупому студентешке https://www.cyberforum.ru/ pascalabc-net/ thread2509277.html
9. Написать программу, которая выводит таблицу значений функции в диапазоне от -2 до 2 с шагом 0,5. Ниже представлен рекомендуемый вид экрана во время работы программы. ---------------------- Х | y ---------------------- -2 | -22.6 -1.5 | -15.9 -1 | -10.4 -0.5 | -6.1 0 | -3.0 0.5 | -1.1
PascalABC.NET Как написать программу https://www.cyberforum.ru/ pascalabc-net/ thread2509109.html
Уран наконец-то освоен! МОЗГу удалось и на этой мертвой планете поставить нужные преобразователи. Теперь на этой планете можно проводить некоторое время без вреда для здоровья. Чем и решили воспользоваться межпланетные туристические фирмы. Одна из них - «С нами хоть на Луну» - решила потратить весь свой фонд на покупку квадратных участков на Уране. Дабы не потерять в прибыли — нужно потратить...
Выясните стоимость PascalABC.NET
Из партии х1 га было собрано y1 тонн пшеницы, которая была продана к1 рублей кг, со второй партии х2 га или собрано y2 тонны пшеницы, которая была продана с к2 лея кг. Напишите программу, которая рассчитывает а) урожай с гектара на каждом участке; б) средний урожай с гектара на обоих участках: в) средняя цена продажи одного кг пшеницы:
PascalABC.NET Кол-во единиц в двоичной записи https://www.cyberforum.ru/ pascalabc-net/ thread2509039.html
С клавиатуры вводится число в десятичной, переводится в двоичное и выводится кол-во единиц. var a,b:integer; begin readln(a); b:=0; while a>0 do begin a:=a div 2; b:=b+1; end; writeln(b);
257 / 149 / 70
Регистрация: 29.07.2018
Сообщений: 1,241
13.02.2020, 11:25 0

Олимпиадная задача по программированию. PascalABC.NET - PascalABC.NET - Ответ 14249541

13.02.2020, 11:25. Показов 34069. Ответов 21
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
  Reset(input, 'input.txt');
 var r :=  ReadArrString(ReadlnInteger);
   r.GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}')
  .PrintLines;
  r.Lenght.Print;
end.


Вернуться к обсуждению:
Олимпиадная задача по программированию. PascalABC.NET PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.02.2020, 11:25
Готовые ответы и решения:

Олимпиадная задача по программированию. PascalABC.NET
Вася с Петей и Колей заработали много денег. Чтобы не мучиться с дележкой, они решили, что сначала...

Олимпиадная задача по программированию. PascalABC.NET
Найти количество целых решений, удовлетворяющих неравенству: A ≤ B*x + C ≤ D. Формат ввода В...

Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами
Когда пользователь работает в операционной системе Winux, у него часто запущено несколько...

Олимпиадная задача по программированию. PascalABC.NET. Задача С. Считалка
Ирочка попросила маму придумать новую считалочку. Мама тут же ей &quot;выдала&quot;. Пусть в кругу N...

21
13.02.2020, 11:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2020, 11:25
Помогаю со студенческими работами здесь

В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в...

Установится ли PascalABC.NET на систему, где установлен только .NET 4.6.1?
Привет всем. Вопрос, собственно, озвучен выше. Конкретнее: есть компьютер со свежеустановленной...

График температур. Подправить код из turbo (не знаю где писать в PascalABC или PascalABC.net)
На Pascal ABC не запускается(( uses crt,graph; const n=31; {массив - константа, можно...

Где можно скачать PascalABC а не PascalABC.Net
Где можно скачать PascalABC а не PascalABC.Net?

Олимпиадная задача по программированию
Помогите написать программу для решения следующей задачи (из Всесибирской Открытой Олимпиады...

Олимпиадная задача по программированию: Таджикские имена
Отсортировать N слов по алфавиту. Разделить по группам те которые заканчиваются на &quot;хон&quot;,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru