Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.
Дай мне своего автора книги все щас кину решения и объясню все !!
Чтобы закодировать один символ алфавита, потребуется 4бита = 2^2 бита.
2Кбайт = 2^11байт = 2^14бит
2^14/2^2 = 2^12 = 4096 символов