Рассмотрим различные варианты слов из 20 букв, которые содержат 18 букв Т (звёздочка обозначает любую из оставшихся 10 букв): ТТТТТТТТТТТТТТТТТТ** ТТТТТТТТТТТТТТТТТ**Т ... **ТТТТТТТТТТТТТТТТТТ - 19 вариантов
ТТТТТТТТТТТТТТТТТ*Т* ТТТТТТТТТТТТТТТТ*ТТ* ТТТТТТТТТТТТТТТ*ТТТ* ... *ТТТТТТТТТТТТТТТТТТ* - 18 вариантов
Вместо каждой из "*" может стоять любой из десяти символов (кроме Т), то есть на каждую из 190 перестановок мы имеем 10^2 = 100 вариантов распределения остальных символов на месте звёздочек. Общее количество вариантов = 190*100 = 19000
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать} var min,max,a:real; begin readln(a); min:=a;max:=a; while a<>0 do begin readln(a); if a>max then max:=a; if a<min then min:=a; end; writeln('min: ',min,' max: ',max); end.
procedure writing(ar:array of integer; var i,n:integer); begin; while i<=n do begin; write(ar[i]:4); i:=i+2; end; end;
begin; readln(n); writeln('Array:'); SetLength(ar,n+1); for i:=1 to n do readln(ar[i]); i:=1; writeln('Result:'); writing(ar,i,n); <span>end.
</span>2) </span>var ar:array[1..10] of integer; n,i:integer; sr,otk,otkm:real; begin; randomize; otkm:=-1; writeln('Array:'); for i:=1 to 10 do begin; ar[i]:=random(10); sr:=sr+ar[i]; write(ar[i]:4); end; sr:=sr/10; for i:=1 to 10 do begin; otk:=ar[i]-sr; if otkm<otk then otkm:=otk; end; writeln; writeln('Среднее арифметическое:',sr); write('Максимальное отклонение:',otkm); end.
1).Числовая информация представлена в Десятичной системе счисления или другими словами (позиционной). Сейчас говорят в Десятичной. 2)В символической используется позиционная двоичная. 3)В графической всегда восьмеричная система счисления. 4)Для звука будет двоичная система счисления. 5)А для видео Шестнадцатиричная система счисления!