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

Дано число n. найти сумму простых делителей числа n.

👇
Ответ:
olesyag8080
olesyag8080
03.01.2021
Var N,i,summa:integer;
begin
 Write('Введите число='); Readln(N);
 for i:=1 to N do begin 
 if N mod i = 0 then Summa:=summa+i;
end;
Writeln('Сумма=',Summa);
end.
4,4(22 оценок)
Открыть все ответы
Ответ:
rekrifcm
rekrifcm
03.01.2021
Var
  stack : array [1..1000] of double;
  op1, op2 : double;
  i : integer;
  c : char;
begin
  i := 0;
  while not eoln do
  begin
    read (c);
    if c in ['0'..'9'] then
    begin
      inc (i);
      stack[i] := ord (c) - ord ('0');
    end
    else if c <> ' ' then
    begin
      if i < 2 then
      begin
        writeln ('Error!'); halt;
      end;
      op2 := stack[i];
      dec (i);
      op1 := stack[i];
      case c of
        '+' : stack[i] := op1 + op2;
        '-' : stack[i] := op1 - op2;
        '*' : stack[i] := op1 * op2;
        '/' : stack[i] := op1 / op2;
      end;
    end;
  end;
  if i <> 1 then
    writeln ('Error!')
  else
    writeln (stack[i]);
end.
4,6(97 оценок)
Ответ:
aktobe1
aktobe1
03.01.2021

static void Main(string[] args)

       {

           string chislo = "";

           Console.Write("Введите четырёхзначное число: ");

           chislo = Console.ReadLine();

           int First = int.Parse(Convert.ToString(chislo)[0].ToString());

           int Second = int.Parse(Convert.ToString(chislo)[1].ToString());

           int Third = int.Parse(Convert.ToString(chislo)[2].ToString());

           int Fourth = int.Parse(Convert.ToString(chislo)[3].ToString());

           int summa1 = First + Third;

           int summa2 = Second + Fourth;

           if(summa1 > summa2)

           {

               Console.Write("Результат: {0}{1}", summa2, summa1);

           }

           else

           {

               Console.Write("Результат: {0}{1}", summa1, summa2);

           }

           Console.ReadKey();

       }

   }

Объяснение:

Язык не был указан, поэтому написал на C#. Максимальное число, при котором выдаст результат 1315 - это число 9964, т.к. 9+4 = 13 и 9 + 6 = 15 (Запись по условию задачи в порядке возрастания).

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