Var n,i,min,max:integer;
begin;
readln(n);
max:=0;
min:=10;
while n>1 do
begin;
if n mod 10>max then max:=n mod 10;
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end;
writeln('Result:',max mod min);
<span>end.</span>
В)часть памяти на жестком <span>диске почтового сервера, отведенную для пользователя;</span>
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>
Получится ЕЧПОМОИАИТ, подряд идут согласные ЧМП, ЗНАЧИТ ПОЛУЧИТСЯ 3