Вы уже знаете, что обработка информации - решение некоторой информационной задачи. А какие информационные задачи вам приходилось решать? Напишите по 1 примеру. НАПРИМЕР: Я утром интересуюсь погодными условиями, чтобы принять решение: как мне одеться? *
Итак, историю Интернета можно разделить на несколько этапов.
1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.
1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для электронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до нескольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результатах работ ученые докладывают на международных научных конференциях.
1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).
Сформирована сеть Интернет.
1991–2000 гᴦ. Ethernet стал самой распространенной технологией локальной компьютерной сети. Интернет объединил локальные сети и стал средством массовой коммуникации. Произошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, видеоконференции. Услуга Интернет и электронной почты встроена в мобильные телефоны.
//Pascal var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then begin Count := Count + 1; Delete(s,i,1); end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
//FreePascal/Delphi/PascalABC.NET(v3.3.1590) {$MODE OBJFPC} //В PascalABC.NET можно убрать uses SysUtils; //В PascalABC.NET можно убрать var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do try if StrToInt(S[i]) mod 3 = 0 then begin Count := Count + 1; Delete(s,i,1); end; except end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
Итак, историю Интернета можно разделить на несколько этапов.
1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.
1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для электронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до нескольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результатах работ ученые докладывают на международных научных конференциях.
1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).
Сформирована сеть Интернет.
1991–2000 гᴦ. Ethernet стал самой распространенной технологией локальной компьютерной сети. Интернет объединил локальные сети и стал средством массовой коммуникации. Произошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, видеоконференции. Услуга Интернет и электронной почты встроена в мобильные телефоны.
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
Count := Count + 1;
Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.
//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
Count := Count + 1;
Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.