У меня нет данного словаря. Но это легко.
Считаешь количество строк. Затем количество символов в строке (1 символ = 1 байт).
Перемножаешь.
Смотришь количество страниц.
Перемножаешь количество страниц на количество символов на странице (количество строк* количество символов в одной строке).
Получишь объем словаря в байтах.
Делишь на 1024 - в Кб
Делишь еще на 1024 - в Мб.
Var x: integer;
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.
1) луна -это луна ,а 2+3=5
2)2,4
3)формула
4)v a V ?
5)c
6)AB=2
Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
<span>Предлагаю автоматический поиск и проверку логических функций
на Excel</span>
Копируя логические элементы собираем необходимую функцию,
строим таблицу, в листе СДНФ (жмем на ярлык внизу) находим СДНФ функции, затем
в листах 1 строим логическую схему и упрощаем, проверяем
F=¬(A&B)v¬(Bv¬C)
Упрощаем
<span>F =¬Av¬B</span>
Собираем схему проверяем
<span>
</span>