Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Неопределённость информации уменьшается в 3*3=9 раз, и такое кол-во информации кодируется минимум 4 битами.
Прикладные программы это такие программы, предназначение которых направлено на решение определенных задач и непосредственно взаимодействуют с пользователем. Компьютерные программы необходимы для автоматизации каких-либо процессов, хранения и обработки данных, моделирование, проектирование и т.п. сложных вычислительных процессов. Программы обычно разделяют на два класса: это системные программы и прикладные программы. Первые в основном используются для обработки поступающей информации с какого-нибудь оборудования: сетевой карты, видеокарты, подключенного оборудования, т.е. это те программы, которые взаимодействуют с "железом" или внешними устройствами. О них мы расскажем в следующих статьях. А вот о вторых – прикладных программах, поговорим более подробно.
Прикладные программы предназначены для взаимодействия с конечным пользователем, т.е. пользователь как бы взаимодействует сам с собой, но только через программу, вводит какие-либо данные на входе и получает определенный результат обработанных данных на выходе. Это своего рода решение определенной прикладной задачи, например, это сканированние изображений и последующая их обработка или поиск нужных файлов. Использование прикладных программ можно наблюдать практически во всех сферах деятельности человека, будь это ведение бухгалтерского учета на предприятии или создание графических изображений, рисование и т.п. Так же использование прикладных программ присутствует в таких очень важных системах как системы управления базами данных. Это очень актуально на больших предприятиях, где работает большое количество пользователей и которым очень нужно хранить и использовать большие объемы информации.
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.
1010,10*1000,01=10,25*8,25=84,56(10)=1010100,10(2)
56,71(10)=111000,10(2)
