Var a:array of real; n,an:integer; begin randomize; writeln('Введите размерность массива'); readln(n); n:=n+1; setlength(a,n); for an:=1 to n-1 do begin; a[an]:=random(10); if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an; write (a[an],','); end; end.
Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.
1)Сколько бит информации несет сообщение о том,что занятия состоятся в одной из 36 аудиторий?диапазон 0-35 , 2 в ст 6 > 35 ответ : 6 бит 2) Какое число следует за каждым из данных: (а) 667(внизу 8) (б) 101(внизу 2) Нечетное, вполне себе ответ.3) Выполните арифметические операции: (а)11010110(внизу 2) + 1111001(внизу 2) (б) 1110(внизу 2) * 1001(внизу 2) (в) 1100011(внизу 2) - 11111(внизу 2) нужно делать столбиком как с обычными числами, только высший разряд увеличивать при переполнении текущего разряда большего чем 1.
n,an:integer;
begin
randomize;
writeln('Введите размерность массива');
readln(n);
n:=n+1;
setlength(a,n);
for an:=1 to n-1 do
begin;
a[an]:=random(10);
if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;
write (a[an],',');
end;
end.