А) В компьютере постоянно идёт сбор информации вне зависимости от того что мы делаем ( печатаем , играется или сидим в интернете ). Вот почему после каждого посещения интернета советуют чистить компьютер при помощи программ чистителей к примеру : CCleaner .
б) После сбора информации идёт сразу же её обработка чтобы узнать её свойства . При обработке может попасть вирус , который будет исполнять определённую роль заложенную в её программе . Предупреждение и обезвреживание компьютерных вирусов могут помочь программы антивирусы к примеру : DrWeb и Avast .
в) Упрощение информации ето скорее всего её классификация , расортировка и сжатие ( архивация ).
г) Создание информации ето самый по своей сути прост ведь информацию можно создать банально открыв программу блокнот на компьтере и напечатать символ точку ( . ) вот и все маленькая но всеже информация создана .
д) Возьмём ету-же точку в блокноте информации есть но как только вы выйдете из етой программы без сохранения информация пропадает но стоит только нажать кнопку сохранить и ета информация сохранится где-то в корневой папке программы "Блокнот" .
Большем не напечатаю вот то что смог и не знаю подойдёт ли ! Сори если че не так Удачи &-)
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
<span> Алле – 9, Вика-10, Борису – 11, Денису – 13, Соне – 12.</span>