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

Любое натуральное число можно представить в виде суммы нескольких последовательных натуральных чисел. Например, число 25 можно представить в виде суммы из одного (25), двух (12+13) или пяти (3+4+5+6+7) чисел. Требуется написать программу, которая определит максимальное количество чисел в таком разложении. Технические требования: ограничение во времени тестирования: по 1 секунде на один тест.
Формат входных данных
Входной текстовый файл содержит одно натуральное число n (1≤ n ≤ 1000000000).
Формат выходных данных
Выходной текстовый файл должен содержать одно натуральное число – максимальное количество чисел в разложении числа на сумму последовательных натуральных чисел.
Желательно С++

👇
Ответ:
Софияcatwar
Софияcatwar
19.08.2022

Логистинг задачи:

var i,n,max,d:LongInt;

x1,x2:Real;

begin

 max:=1;

 Read(n);

 for i:=1 to n div 2 do

  begin

   d:=sqr(2*i-1)+8*n;

   if d<0 then Continue;

   x1:=((1-2*i)-sqrt(d))/2;

   x2:=((1-2*i)+sqrt(d))/2;

   

   if (frac(x1)=0) and (x1>max) then

    begin

     max:=Round(x1);

     Break;

    end;

   if (frac(x2)=0) and (x2>max) then

    begin

     max:=Round(x2);

     Break;

    end;

  end;

 Writeln(max);

end.

Листинг программы:

var n, s: longint;

begin

 readln(s);

 s := 2 * s; {лучше s := s shl 1;}

 n := trunc(sqrt(s)); {можно, как планировалось, n := trunc(sqrt(s + 0.25) - 0.5);}

 while n > 1 do

   if (s mod n = 0) and odd(s div n - n)

     then break

     else dec(n);

 writeln(n)

end.

4,7(22 оценок)
Открыть все ответы
Ответ:
кира19732819863
кира19732819863
19.08.2022

а) компьютер, предназначенный для эксплуатации одним пользователем, то есть для личного использования.

б)совокупность программ, процедур и правил, а также документации, относящихся к функционированию системы обработки данных .

в) комплекс управляющих и обрабатывающихпрограмм, которые, с одной стороны, выступают как интерфейс между устройствами вычислительной системы иприкладными программами, а с другой стороны — предназначены для управления устройствами, управления вычислительными процессами, эффективного распределения вычислительных ресурсов между вычислительными процессами и организации надёжных вычислений. Это определение применимо к большинству современных операционных систем общего назначения.

г)поименованная последовательность байтов.

д)лицо илиорганизация, которое использует действующую систему для выполнения конкретной функции.

е)разновидность интерфейсов, в котором одна сторона представлена человеком (пользователем), другая — машиной/устройством. Представляет собой совокупность средств и методов, при которых пользователь взаимодействует с различными, чаще всего сложными, машинами, устройствами и аппаратурой.

4,5(17 оценок)
Ответ:
marina02427
marina02427
19.08.2022

 

Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
 write (‘N=’);
readln (n);

 

Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
 write (‘N=’);
readln (n);
 I:=1; s:=0;
 repeat
  s:=s+I;
  I:=I+1;
 until I>n;
 writeln (‘s=’,s);


 I:=1; s:=0;
 repeat
  s:=s+I;
  I:=I+1;
 until I>n;
 writeln (‘s=’,s);

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