Скорее всего ручка.
Хотя вернее всего ручка
<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
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
Решение во вложении ниже
небольшие пометки:
1. писал в ABC.net паскале команда power(x,2) - возведение Х во 2 степень, если писать в других оболочках паскаля, возможно можно будет использовать запись x^2
2. Формула сферы (x-x0)²+(y-y0)²+(z-z0)² = R²
где x0, y0, z0 - координаты начала (т.к. у нас начало в центре получаются эти координаты 0 0 0) и получаем формулу сферы x²+y²+z²=R²
причем эта формула для поверхности сферы, по условию задачи нужно найти точки внутри сферы, поэтому ставим не =, а < (если же понадобятся еще точки лежащие на поверхности сферы, нужно из < сделать <=)
Нужно десятичное число постоянно делить в столбик на 16 и потом делить делитель на 16. сейчас наглядно покажу.
331 будем переводить
вот как показано на фото делишь и потом записываешь число с конца(стрелочкой показано), но в 16 системе нет чисел 10,11,12,13,14,15
вместо них идут буквы
10-A
11-B
12-C
13-D
14-E
15-F
это надо помнить
I большая означает объём информации, например.
I=K*i - для текста
I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....)
I=h*w*i - для изображений(h, w - высота и ширина картинки)