// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
ReadlnString('Вводите:').ToReals.OrderBy(x->x).Println
end.
<u><em>Тестовое решение:</em></u>
Вводите: 35.53 -34.14 -18 0 6e-1 3.14 23.2 -2.34e-3
-34.14 -18 -0.00234 0 0.6 3.14 23.2 35.53
<span>Предлагаю автоматический поиск и проверку логических функций
на Excel</span>
Копируя логические элементы собираем необходимую функцию,
строим таблицу, в листе СДНФ (жмем на ярлык внизу) находим СДНФ функции, затем
в листах 1 строим логическую схему и упрощаем, проверяем
F=¬(A&B)v¬(Bv¬C)
Упрощаем
<span>F =¬Av¬B</span>
Собираем схему проверяем
<span>
</span>
Ну начну с того что единицы измерения информации делятся как время (Секунды-минуты-часы-дни-месяца-года и т.д.). В единицах измерения информации входят:
1 байт = 8 битов
1 килобайт(кб) = 1024 байта
1 мегабайт(мб) = 1024 килобайта
1 гигабайт(гб) = 1024 мегабайт
1 терабайт(тб) = 1024 гигабайта
Достаточно таки лёгкая тема.
PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
<span>end.</span>
Ответ:
95.625 КБ
Объяснение:
Пусть символ компьютерного алфавита весит 1 байт. Вычислим количество символов в сообщении.
34 * 60 * 48 = 97920
Сообщение весит 97920 байт = 95.625 КБ.