Целое неотрицательное число, все цифры которого различны, назовем пёстрым. Напишите программу нахождения максимального пёстрого числа, которое делится на заданное натуральное число n.

Pascal

Алгоритм1
 var   
s : string;   
n1,n2 : integer;   
i,l : integer; 
begin 
readln (s);   
n1 := 0;  n2 := 0; 
l := Length(s); 
 for i := 1 to l do 
  if (s[i] = ' ') then 
   if n1 = 0 then 
    n1 := i 
   else 
    n2 := i;   

if n2 = 0 then   
s := ' ' 
else   
s := copy(s,n1+1,n2-n1-1);   
writeln (s); 
end.

Алгоритм2
  var   
s : string;   
n1,n2 : integer;   
i,l : integer;   
r : boolean; 
begin 
readln (s);   
n1 := 0;  n2 := 0; 
r := false; 
l := Length(s); 
i := 1;   
While (i<=l) and (not r) do   
begin   
 if s[i] = ' ' then   
  begin   
   n1 := i;   
   r := true;   
  end;   
i := i +1;   
end;     

r :=false; 
i := l;   

While (i>0) and (not r) do   
begin   
if s[i] = ' ' then     
begin     
n2 := i;     
r := true;     
end;   
i := i -1;   
end;   

if n2 = n1 then   
s := ' ' 
else   
s := copy(s,n1+1,n2-n1-1);   

writeln (s); 
end.

16 Кбайт = 16 384 байт
Скорость передачи 4096байт в секунду, значит первый файл передастся за:
16384/4096=4 секунды

Вот с второй частью, тут либо ошибка, и:
1) имелось ввиду 256секунд, либо чего-то забыли дописать из условия. Например количество секунд, а скорость соединения 256байт\секунду.
2) Либо имелось ввиду, что время затраченное на передачу файла такое же, как и в первом случае.
Для первого случая 4096байт*256секунд=передано 1048576 байт = 1024 килобайт
Для второго случая: 256байт*4секунды=передано 1024байта = 1килобайт