// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
<u><em>Тестовое решение</em></u>
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
<u>Пример</u>
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49
Вариантов кодировок UNICODE достаточно много и один из самых популярных - в котором каждый символ всегда кодируется двумя байтами. Поэтому кириллица, цифры, латиница, спецзнаки - все кодируется одинаковым числом байт.
Один символ кириллицы кодируется 2 байтами = 2х8 = 16 битами.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (su,sd,sl):=(0,0,0);
for var i:=0 to n-1 do
for var j:=0 to n-1 do
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j];
Writeln('Суммы элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 4
*** Исходная матрица ***
-73 -89 4 39
77 -32 23 -45
-29 -70 -88 -40
-83 9 21 -46
----------------
Суммы элементов:
- верхней треугольной матрицы -108
- главной диагонали -239
- нижней треугольной матрицы -75
<u>"Школьный" вариант</u>
const
nn=20; { максимальный размер }
var
a:array[1..nn,1..nn] of integer;
i,j,n:integer;
su,sd,sl:longint;
begin
Write('Количество строк (столбцов) в матрице:');
Readln(n);
Randomize;
Writeln('*** Исходная матрица ***');
su:=0; sd:=0; sl:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
Write(a[i,j]:4);
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j]
end;
Writeln
end;
Writeln('Суммыа элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
Язык как знаковая система. Для обмена информацией с др.людьми человек использует естественные языки (русский, английский, китайский и др.), т.е. информация представляется с помощью естественных языков. В основе языка лежит алфавит, т.е. набор символов (знаков), которые человек различает по их начертанию. Последовательности символов алфавита, в соответствии с правилами грамматики, образуют основные объекты языка - слова. Предложения из слов данного языка, называются синтаксисом. Наряду с естественными языками были разработаны формальные языки (системы счисления, алгебра, языки программирования, отдельных профессий и др.). Основное отличие формальных языков от естественных состоит в наличие не только жестко зафиксированного алфавита, но и строгих правил грамматики и синтаксиса. Некоторые языки используют в качестве знаков не буквы и цифры, а др. символы, например, музыкальные ноты, изображения элементов электрических или логических схем, дорожные знаки, точки и тире (код азбуки Морзе) и др. Кодирование информации. В процессе преобразования информации из одной формы представления (знаковой системы) в другую происходит кодирование. Средством кодирования служит таблица соответствия знаковых систем, которая устанавливает взаимно однозначное соответствие между знаками или группами знаков 2-х различных знаковых систем. В процессе обмена информацией часто приходится производить операции кодирования и декодирования информации. Чаще всего кодированию подвергаются тексты на естественных языках.
Существуют 3 основных способа кодирования текста:
<span>графический - с помощью спец. рисунков или значков;числовой - с помощью чисел;символьный - с помощью символов того же алфавита, что и исходный текст.</span>АНАЛОГОВЫЙ И ДИСКРЕТНЫЙ СПОСОБЫ ПРЕДСТАВЛЕНИЯ ИЗОБРАЖЕНИЯ И ЗВУКА
Человек способен воспринимать и хранить информацию в форме образов (зрительных, звуковых, осязательных, вкусовых и обонятельных). Зрительные образы могут быть сохранены в виде изображений, а звуковые зафиксированы на пластинках, магнитных лентах, лазерных дисках и т.д. Информация, в том числе графическая и звуковая, может быть представлена в аналоговой и дискретной форме. При аналоговом представлении информации физическая величина может принимать бесконечное множество значений. При дискретном представлении информации физическая величина может принимать конечное множество значений, при этом она изменяется скачкообразно. Преобразование графической и звуковой информации из аналоговой формы в дискретную производится путем дискретизации, т.е. разбиения непрерывного графического изображения или непрерывного (аналогового) звукового сигнала на отдельные элементы. В процессе дискретизации производится кодирование, т.е. присвоение каждому элементу конкретного значения в форме кода.
