Е 4.18. Создание таблиц
Задание 4.18
1. В текстовом процессоре создайте новый документ.
2. Создайте таблицу следующей структуры:
Имя файла
Свойства файла
тип
приложение
размер
дата создания
3. Добавьте в таблицу нужное количество строк и внесите вних
информацию о 5-6 файлах, хранящихся в вашей личной папке.
4. Сохраните файл в личной папке под именем Таблица. rtf и за-
кройте ее
+100 балов очень вас

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.