Задача 1. ДАНО натуральне число N. Скласти програму для обчислення суми всіх елементів послідовності
1+1/2+1/3+1/4+...+1/N
Приклад. Якщо ввести N=2 то S(сума)=1,5 оскільки 1+1/2=1,5
Задача 2*. ДАНО натуральне число N. Скласти програму для обчислення всіх елементів послідовності
1-2+3-4+5-...+N
Приклад.
Якщо ввести N=7 то S(сума)=4;
Якщо ввести N=10 то S(сума)=-5;
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 стал самой распространенной технологией локальной компьютерной сети. Интернет объединил локальные сети и стал средством массовой коммуникации. Произошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, видеоконференции. Услуга Интернет и электронной почты встроена в мобильные телефоны.