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

Потрібно зашифрувати прізвище та ім'я : Семенюк Уляна​

👇
Открыть все ответы
Ответ:
Sndrey68085
Sndrey68085
19.11.2021
Основана американским программистом шотландского происхождения Джоном Макафи в 1987 году под названием McAfee Associates. В 1992 году компания была зарегистрирована в штате Делавэр. В 1994 году Джон Макафи покинул компанию. В 1997 году в результате слияния McAfee с компанией Network General была образована новая компания под названием Network Associates. В 2004 году компания вернула себе первоначальное название в сокращённом виде — McAfee.[2] В 2010 году после переговоров, длившихся 1,5 года, компания Intel выкупила акции тогда ещё публичной компании McAfee (листинг на Нью-Йоркской бирже: MFE) за 7,68 млрд долларов[3]. В 2014 г. компания Intel переименовала McAfee в Intel Security. Логотипом новой компании стал красный щит использующийся прежне McAfee, изменили только название. Продукты компании сохранили фрагмент «McAfee» в составе своих наименований.[2] В сентябре 2016 года компания Intel продала 51% акций подразделения Intel Security, в состав которой входит McAfee. Новым совладельцем компании стал инвестиционный фонд TPG. Сумма сделки составила 3,1 млрд.долл. и будет закрыта во втором квартале 2017 года.[4]
4,5(82 оценок)
Ответ:
Страус123552
Страус123552
19.11.2021
Var
  i,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  Write(n,' = 1');
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
  begin
    Write(' x ',f[i,1]);
    if f[i,2]>1 then Write('^',f[i,2])
  end;
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 223092870
223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23

Введите натуральное число не больше 2 147 483 647: 65536
65536 = 1 x 2^16

Введите натуральное число не больше 2 147 483 647: 2147483647
2147483647 = 1 x 2147483647
4,5(31 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ