Ответ:
1)ВСЯ ИНФОРМАЦИЯ ДОСТУПНА С ЛЮБОГО УСТРОЙСТВА 2)МОГУТ ПОЛУЧИТЬ ДОСТУП ЗЛОУМЫШЛЕННИКИ
Объяснение:
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
можно сэкономить место на диске, т.е заархивировать это значить сжать данные в нескольео раз
program Vyv;
var a,b,i:integer;
begin
write('Введите начало диапазона a = ');
readln(a);
write('Введите конец диапазона b = ');
readln(b);
for i:=a to b do
if (i<0) and (i mod 2 = 0) then write(i,' ; ')
end.
Я думаю что это диск но я не утверждаю