УМОЛЯЮ не спамьте и тд
НУжно сделать в лазарусе умоляю
Потрібно
розробити програму котра до обраховувати ціну оформлення ID
карток громадянина України та закордонних паспортів.
Стандартна вартість оформлення ID картки складає 750 грн,
закордонного паспорта 900 грн.
Програма повинна містити інформацію про:
Прізвище та ім’я платника
Дата подання заявки
Наявність пільг на оформлення (доступні пільги 5%, 10% та
14,5% від суми). Реалізувати випадаючим списком з
вказанням пільги.
Напрямок оформлення: id картка України чи закордонний
паспорт (реалізувати елементом checkbox. Людина може
обрати оформлення відразу 2 видів паспортів).
Термін оформлення: звичайний - 1 місяць (ціна 0 грн) та
швидкий - 5 днів (+495 грн). (Реалізувати через перемикач).
Програма має містити елементи перевірки коректності
введення даних. Якщо один із елементів не буде обрано чи
дії користувача будуть не коректні вказати помилку
«Перевірте правильність введення даних» у випливаючому
вікні.
Кінцеве повідомлення: (н-д) «Боружко Оксана подав(-ла) заявку на
оформлення ID картки та закордонного паспорту 16.03.2020 року.
Пільга під час оформлення складає 10%, а термін виконання швидкий.
До сплати: 1 980 грн.»
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println; // общее
Println('Максимальный четный ', a.Where(t -> t.IsEven).Max); // задача 1
Print('Второй минимальнывй нечетный'); // задача 2
a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println // задача 2
end.
Пример
n= 15
67 8 60 1 96 40 73 25 39 93 64 89 40 69 9
Максимальный четный 96
Второй минимальнывй нечетный 89
Вся информация на компьютере представлена в двоичном коде, т.е. последовательностью нулей и единиц - для каждой буквы своя последовательность, все последовательности в одном алфавите равны по длине. Из этого следует, что чем больше длинна последовательности в алфавите, тем больше их можно составить. Например, последовательностей в 2 бита можно составить 4: 00 01 10 11.
В 3 - уже 8: 000 001 010 011 100 101 110 111 - всего 8 символов(возможных последовательностей, или же - мощность алфавита) и на каждый символ уходит 3 бита - вес символа.