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

1) составить программу, которая из слова "информация" составляет слова "форма","цифра","фирма" 2) составить программу, которая заменяет в тексте, заданном с клавиатуры все буквы "о" на букву "т"

👇
Ответ:
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём;

ПЕР
  слово1, слово2, слово3, слово4, слово5: РЯД 50 ИЗ ЗНАК;
  сч: ЦЕЛ;

УКАЗ
  СПИСАТЬ("информация", слово1);
  ОТ сч := 2 ДО 6 ВЫП
    слово2[сч - 2] := слово1[сч]
  КОН;
  слово2[5] := 0X;

  слово3[0] := слово1[7];
  слово3[1] := слово1[8];
  слово3[2] := слово1[2];
  слово3[3] := слово1[4];
  слово3[4] := слово1[6];
  слово3[5] := 0X;

  слово4[0] := слово1[2];
  слово4[1] := слово1[0];
  слово4[2] := слово1[4];
  слово4[3] := слово1[5];
  слово4[4] := слово1[6];
  слово4[5] := 0X;

  Приём.Строка(слово5);
  ОТ сч := 0 ДО ДЛИНА(слово5) - 1 ВЫП
    ЕСЛИ слово5[сч] = "о" ТО слово5[сч] := "т"
  КОН

КОН Задание.
4,5(86 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

function CycleFraction(n:integer):string;
begin
  if n=1 then begin Result:='1'; Exit end;
  var ost:=new SortedList<integer,integer>;
  var res:=new List<integer>;
  ost.Add(1,1);
  var a:=1;
  var k:=1;
  while True do begin
    a*=10;
    var r:=a div n;
    res.Add(r);
    a:=a mod n;
    if ost.ContainsKey(a) then begin
      var p:=ost.Get(a);
      Result:=res.JoinIntoString('');
      Result:='0.'+Result?[:p]+(a<>0?'('+Result?[p:]+')':''.ToString);
      exit
      end
    else begin
      k+=1;
      ost.Add(a,k);
      end
    end
end;

begin
  var n:=ReadInteger('n=');
  Writeln('1/',n,' = ',CycleFraction(n))
end.

Примеры
n= 2
1/2 = 0.5

n= 7
1/7 = 0.(142857)
 
n= 28
1/28 = 0.03(571428)

n= 118
1/118 = 0.0(0847457627118644067796610169491525423728813559322033898305)
4,7(86 оценок)
Ответ:
анаркааа54
анаркааа54
23.03.2021
Вообще, любые. 
Но если нужна конкретика, то:

 — 10.10.0.0 – 10.255.255.255 — сеть класса A, возможно до 16121856 различных адресов хостов.

 — 172.16.0.0 – 172.31.255.255 — группа 16-ти смежных сетей класса B, можно использовать до различных 1048576 адресов хостов.

 — 192.168.0.0 – 192.168.255.255 — группа 16-ти смежных сетей класса C, возможно до различных 65536 адресов хостов.

Кроме того, существуют петлевые интерфейсы, которые не используют обмен между узлами сети. Для них выделен интервал адресов 127.0.0.0 — 127.255.255.255

При этом выбор конкретного диапазона зависит только от размеров вашей локальной сети. Так, в домашних или других небольших сетях обычно используют диапазон адресов 192.168.0.1 -192.168.0.254, при котором можно подключать до 254 клиентов.

4,5(59 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ