М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ali0002
ali0002
27.02.2021 22:09 •  Информатика

форма мышления в которой отражаются существенные признаки отдельного объекта и некоторого множества объектов​

👇
Открыть все ответы
Ответ:
dan5259oxnhwz
dan5259oxnhwz
27.02.2021

Итак, историю Интернета можно разделить на несколько этапов.

1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.

1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для элек­тронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до не­скольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результа­тах работ ученые докладывают на международных научных конференциях.

1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).

Сформирована сеть Интернет.

1991–2000 гᴦ. Ethernet стал самой распространенной технологией ло­кальной компьютерной сети. Интернет объединил локальные сети и стал сред­ством массовой коммуникации. Прои­зошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, ви­деоконференции. Услуга Интернет и электронной почты встроена в мо­бильные телефоны.

4,5(27 оценок)
Ответ:
tanya260516
tanya260516
27.02.2021
//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. 

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал
4,8(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ