Var a, b, c, r : integer;
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО))))
1250 Кбайт = 1250*1024 байт = 1250*1024*8 бит
Время передачи файла = 1250*1024*8/256000 = 40 с
Ну что знаю подскажу
3. 1 вариант
4. 1 вариант (т.е. 18)
6. Варианты 1;2;4
7. Вариант 2
2.) 1011010.1 =90.5
3.) 85 =1010101
0.125 =0.001
4.) 1100111.011 =147.3
11100111.011 =E7.6
5.) 143.05 =1100011.000101
1A0.8 =110100000.1
Var i,n:integer;beginwriteln('Введите кол-во чисел!');readln(n);for i:=1 to n dobeginif (i mod 6=0) and (i mod 10=4) thenwriteln(i);end;end.