Вставь апостроф в нужное место. (Запомни, когда апостроф ставится в конце или перед окончанием). ответ напиши здесь (цифра ответ) 1) The (children) room is upstairs. 2) (Steve) school is very old. 3) My (parents) car was not expensive. 4) It’s my (neighbour) cat. 5) They are our (doctors) glasses.

1)Алгоритм шифрует блок 64 бита. На выходе получается блок 64 бита.
То что данные зашифрованы не видно. И не должно быть видно. Другое дело, что часто бывает видно, что данные НЕ зашифрованы, когда они символьные, например.
Классическая книга: Брюс Шнайер. Прикладная криптография. Там этот алгоритм описан и приведена его реализация на языке си
2)Четыре класса должны покрасить забор вокруг школы. Классы Б.В.Г могут выполнить эту работу за 3часа. Классы А, В, Г могут выполнить эту работу за 2часа. Если же будут работать классы А и Б, то работа будет выполнена за 5часов. За какое время могут покрасить забор все четыре класса?  Решение:       p (производительность)        t (время)     А (работа)  Б + В + Г          р(б) + р(в) + р(г) = 1/3           3ч.               1  А + В + Г          р(а) + р(в) + р(г) = 1/2           2ч.               1  А + Б                 р(а) + р(б)  = 1/5                     5ч.              1 А + Б + В + Г                                                     ?ч.               1   Прибавим все р, получим:  2р(а) + 2р(б) + 2р(в) + 2р(г)  =    2(р(а) + р(б) + р(в) + р(г)) =    (р(а) + р(б) + р(в) + р(г) =       Тогда время t  =                                  ответ:                        
   

Uses crt;
const zn=[' ',':',',','!','?','-',';',')'];
var s,s1,s2:string;
i,k:byte;
begin
clrscr;
writeln('Введите строку, содержащую 2 одинаковых слова:');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
if s[i] in zn then s[i]:=' ';
while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
if s[1]=' ' then delete(s,1,1);
k:=0;
while pos(' ',s)>0 do
begin
s1:=copy(s,1,pos(' ',s)-1);
for i:=pos(' ',s)+1 to length(s) do
if (copy(s,i,length(s1))=s1)
and(s[i-1]=' ')
and((s[i+length(s1)]=' ')
or(i+length(s1)-1=length(s))) then
begin
k:=1;
s2:=s1;
write('Одинаковые слова ',s2);
readln;
exit;
end;
delete(s,1,pos(' ',s));
end;
if k=0 then write('Нет двух одинаковых слов');
readln
end.