Онлайн-конкурс "Pascal"
Рівень змагання:
2
Термін проведения:
від 2012-12-22 19:00
до  2012-12-22 20:30
Вікова категорія:
Від 5 до 21

Тема: "Створення і реалізація програм з використанням операторів циклу."

 

Єдина вимога цього конкурсу: використання лише операторів циклу та умови. 

Буде запропоновано написати програми по 6 завданням(кожне завдання по 10 балів максимум при ідеальному його написанні) і одному додатковому. Який сенс у додатковому завданні?

Тим, кому виповнилося вже 16 років, при вирішенні додаткового завдання мають можливість отримати по 10 балів за кожне завдання, тобто максимально 60 балів. Якщо програміст, якому 16+ не вирішує додаткового завдання, то за кожне офіційне завдання отримує максимум 9 балів, тобто максимально 54 бали. 

Якщо програміст, якому ще НЕ виповнилось 16 років вирішує крім офіційних завдань ще і додаткове, має можливість отримати +1 бал, тобто максимальна кількість набраних балів 61. 

У додатковому завданні можливе використання всіх ваших знань: масиви, множини, функції і процедури і т.д. 

У кого не вказана дата народження, то я буду оцінювати, що вам вже виповнилося 16 років, отже поставте свій вік у інформації. Ваші дати народження я записала собі, одже немає сенсу їх змінювати. 

Ще хочу попередити, хто буде використовувати Free Pascal, ABC Pascal, робіть помітку в коментарях у кожній програмі. І якщо будете працювати з дійсними числами, не забувайте іх форматовано виводити.

Бажаю легкого написання програм на сьогоднішньому онлайн конкурсі Pascal!

ЗАВДАННЯ 1
Оцінка:10

Знайти найбільше число k, при якому виконується умова n^k<m. (m, n - цілі числа, що більші одиниці і вводяться користувачем з клавіатури). 

 



ЗАВДАННЯ 2
Оцінка:10

Ввести число і визначити чи є воно досконалим.  (Досконалим називається число, яке дорівнює сумі своїх дільників. 6=1+2+3)



ЗАВДАННЯ 3
Оцінка:10

Програма «відгадай число». Комп’ютер через генератор випадкових чисел загадує ціле число в діапазоні [1..10), а користувачу необхідно його відгадати.

Вивести на екран з якої спроби він відгадав число.



ЗАВДАННЯ 4
Оцінка:10

Написати програму, яка знаходить і виводить на екран всі чотиризначні числа abcd, для яких виконуються наступні умови: a,b,c,d – різні цифри; a*b-c*d=a+b+c+d. Також вивести кількість таких чотиризначних чисел.



ЗАВДАННЯ 5
Оцінка:10

m л соку необхідно розлити у банки по 2,3 і 5 л. (m вводиться з клавіатури користувачем і є цілим числом). Отримати всі можливі варіанти розливу та підрахувати їхню кількість.

(наприклад: 10 л можна розлити: 2 по 5 л; 1 по 2, 1 по 3, 1 по 5 л; 5 по 2л, 2 по 2 і 2 по 3 л)  



ЗАВДАННЯ 6
Оцінка:10

Обчислити суму ряду S

n, x - цілi числa, введенi з клавіатури, які більше одиниці; n! - це факторіал числа(факторіал числа- це добуток всіх натуральних чисел від 1 до n).

отже k!=1*2*3*...*k. 



7. ДОДАТКОВЕ ЗАВДАННЯ*
Оцінка:1

Ввести одновимірний масив дійсних чисел у діапазоні [0...15) розмірністю [1..n] через генератор випадкових чисел.  (n-будь-яке ціле число, введене користувачем з клавіатури та округлити ці числа до сотих).

1. Знайти максимальний елемент масиву.

2.Поміняти місцями перший елемент з n, 2-ий з n-1 і т.ін. Вивести на екран змінений масив.

3. Максимальний елемент розділити на індекс мінімального елемента у новому масиві.

наприклад: 

6.50  3.94  5.24  5.65  2.75  7.34 3.75  

максимальний=7.34

 3.75   7.34  2.75  5.65  5.24   3.94  6.50

індекс мінімального елемента = 3

результат = 2.45





Warning: Unknown: write failed: Disk quota exceeded (122) in Unknown on line 0

Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct (/home/icgroup/.system/tmp) in Unknown on line 0