С имеющейся в вашем распоряжении СУБД со-
здайте БД «ОТДЫХ», содержащую две таблицы следующей
структуры:
• Тур (Страна, Вид отдыха, Продолжительность, Стоимость,
Название фирмы);
• Фирма (Название фирмы, Адрес, телефон, Наличие системы
скидок, Процент скидок).
В первой таблице должно быть не менее 20 записей; во вто-
рой — не менее 5 записей.
Создайте за для отображения информации о фирмах
(название, адрес телефон), предлагающих пляжный отдых.
Создайте на его основе отчёт.
через программу microsoft access​

(63+12): 3=25

(39-18)*4=84

750-12: 3=746

420+9*6=474

массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);   i,min,k: integer;   begin

min: =a[1];  

for i: =2 to 12 do     if a[i]< min then

                                              begin 

                                              min: =a[i];                                               k: =i; write('минимальная стоимость ', min, '   индекс' ,k) end.

или скорее всего этот вариант

program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end. 

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

 

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить