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

СДЕЛАЙТЕ

СДЕЛАТЬ В ЛАЗАРУСЕ
Потрібно

розробити програму котра до обраховувати ціну оформлення ID

карток громадянина України та закордонних паспортів.

Стандартна вартість оформлення ID картки складає 750 грн,

закордонного паспорта 900 грн.

Програма повинна містити інформацію про:

 Прізвище та ім’я платника

 Дата подання заявки

 Наявність пільг на оформлення (доступні пільги 5%, 10% та

14,5% від суми). Реалізувати випадаючим списком з

вказанням пільги.

 Напрямок оформлення: id картка України чи закордонний

паспорт (реалізувати елементом checkbox. Людина може

обрати оформлення відразу 2 видів паспортів).

 Термін оформлення: звичайний - 1 місяць (ціна 0 грн) та

швидкий - 5 днів (+495 грн). (Реалізувати через перемикач).

 Програма має містити елементи перевірки коректності

введення даних. Якщо один із елементів не буде обрано чи

дії користувача будуть не коректні вказати помилку

«Перевірте правильність введення даних» у випливаючому

вікні.

Кінцеве повідомлення: (н-д) «Боружко Оксана подав(-ла) заявку на

оформлення ID картки та закордонного паспорту 16.03.2020 року.

Пільга під час оформлення складає 10%, а термін виконання швидкий.

До сплати: 1 980 грн.»

Показать ответ
Ответ:
GrafGundam
GrafGundam
07.03.2020 02:54

Задание 1:

var i:integer;

begin

   for i:=1 to 20 do writeln('2^',i,'=',exp(i*ln(2)):0:0)

end.

Задание 2:

Мало деталей...N чисел вводятся вручную или они генерятся автоматически рандомно?

var i,min,n,x:integer;

begin

   min:=9999;

   write('Количество чисел: '); readln(n);

   for i:=1 to n do begin

       write('Введите ',i,'-е число: '); readln(x);

       if x < min then min:=x

   end;

   write('Минимальное из введённых чисел равно ', min);

end.

Задание 3:

var i,x:integer;

   chk:boolean;

begin

   chk:=True;

   write('Введите натуральное число: '); readln(x);

   for i:=2 to x-1 do begin

       if x mod i = 0 then begin

           chk:=False;

           break;

       end;

   end;

   if chk = True then write('Введённое число является простым.')

   else write('Введённое число не является простым.');

end.

0,0(0 оценок)
Ответ:
misterzol1
misterzol1
24.05.2022 04:23

1. Компьютерная графика - область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.

2. Компьютерная анимация, Графика для Интернета, Художественная и рекламная графика, Научная графика

3. ЧАСТЫЕ ОБНОВЛЕНИЕ

Обновления, как правило выходят ежемесячно и содержат новые возможности, улучшения производительности и устранения ошибок.

РАБОТА СО СЛОЯМИ

Окно слоёв. Как правило только дорогие или очень сложные профессиональные программы позволяют работать со слоями изображений. Paint.NET предлагает это бесплатно и в форме которая не усложняет их восприятие

МОЩНЫЕ ИНСТРУМЕНТЫ

Paint.NET содержит простые инструменты для рисования фигур, включая легкий в использовании инструмент для рисования сплайнов или кривых Безье

БЕСПЛАТНОСТЬ

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

4. Интерфейс

Строка заголовка В строке заголовка указывается имя открытого изображения (если ещё не присвоено, то Безымянный) и версия paint.net.

Строка меню

Панель инструментов

Список изображений

Холст

Окно инструментов

Окно истории

Окно слоев

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота