Что такое мощность алфавита Автор Максим ОстровскийJune 16, 2017 Алфавитом в информатике называется система знаков, с которой можно подать информационное сообщение. Чтобы понять сущность этого определения, приведем немного дополнительных теоретических фактов: Любые сообщения состоят из алфавита. Например, данная статья - сообщение. Тогда она состоит из символов русского алфавита. Под символом мы можем понимать минимально значимую частицу алфавита. Также неделимые частицы называют атомами. Символами в русском алфавите являются "а", затем "б", "в", и так далее. В теории, алфавиту необязательно быть закодированным как-либо. Например, в печатной книге символы алфавита означают сами себя, значит, не имеют какой-либо кодировки. -
1) Const n=10; var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4); if a[i]<0 then s:=s+a[i]; end; writeln; writeln(' S= ',s); end. 2) Const n=20; var i,s:integer; a:array[1..n]of integer; begin for i:=1 to n do begin a[i]:=random(11)+15; write(a[i]:4); if a[i]mod 2=0 then s:=s+a[i]; end; writeln; writeln('S = ',s); end.
Что такое мощность алфавита Автор Максим ОстровскийJune 16, 2017 Алфавитом в информатике называется система знаков, с которой можно подать информационное сообщение. Чтобы понять сущность этого определения, приведем немного дополнительных теоретических фактов: Любые сообщения состоят из алфавита. Например, данная статья - сообщение. Тогда она состоит из символов русского алфавита. Под символом мы можем понимать минимально значимую частицу алфавита. Также неделимые частицы называют атомами. Символами в русском алфавите являются "а", затем "б", "в", и так далее. В теории, алфавиту необязательно быть закодированным как-либо. Например, в печатной книге символы алфавита означают сами себя, значит, не имеют какой-либо кодировки. -
Const
n=10;
var
a:array[1..n]of integer;
i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
if a[i]<0 then
s:=s+a[i];
end;
writeln;
writeln(' S= ',s);
end.
2)
Const
n=20;
var
i,s:integer;
a:array[1..n]of integer;
begin
for i:=1 to n do
begin
a[i]:=random(11)+15;
write(a[i]:4);
if a[i]mod 2=0 then
s:=s+a[i];
end;
writeln;
writeln('S = ',s);
end.