1. САМ РЕШАЙ.
2 Я ХЗ ЧО ЭТо
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True
I большая означает объём информации, например.
I=K*i - для текста
I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....)
I=h*w*i - для изображений(h, w - высота и ширина картинки)
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
<span>Программа восстанавливает данные жестких и внешних дисков, а также любых других устройств под управлением файловых систем FAT, NTFS. Утилита объединяет комплекс алгоритмов, восстанавливающих имя, атрибуты, содержимое файла и оригинальную структуру каталогов диска.</span><span>Кроме существующих, утилита находит все ранее созданные разделы диска и выводит их пользователю для дальнейшего анализа и поиска удаленной информации. Поддерживая FAT16, FAT32 и NTFS, используемые в Windows, программа исправляет любые ошибки логической структуры жесткого диска и возвращает его содержимое быстрее, чем вы досчитаете до трех.</span>