olgatolga

30.05.2022 12:50

Информатика

Есть ответ 👍

Взаданном интервале целых натуральных чисел от n до m, найдите число которое имеет наибольшее число делителей. если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале

154

441

Посмотреть ответы 2

Ответы на вопрос:

Karinago

Информатика

4,4(30 оценок)

Var m,n,j,i,c,max,o: integer; begin readln(n,m); for i: = m downto n do begin for j: =1 to i div 2 do if i mod j = 0 then c: =c+1; if c> =max then begin max: =c; o: =i; end; c: =0; end; writeln(o); end.

PoLiNa20061404

Информатика

4,7(18 оценок)

Python 3.6

n = int(input())

a = [int(i) for i in input().split()]

up, now, max_, min_ = False, 0, 0, 0

if n == 1:

print('0 0')

else:

for i in range(1, n):

if a[i - 1] < a[i]:

if not up:

up = True

now = 0

now += a[i] - a[i-1]

if now > max_:

max_ = now

if a[i-1] > a[i]:

if up:

up = False

now = 0

now += a[i-1] - a[i]

if now > min_:

min_ = now

print(max_, min_)

PascalABC.NET 3.5.1

Program c_contest;

var Data: array of longword;

i, n, count, max, min, now: longword;

up: boolean;

F: textfile;

begin

Assign(F, 'input.txt');

Reset(F);

readln(F, n);

SetLength(Data, n);

for i := 0 to n-1 do

begin

read(F, Data[i]);

end;

Close(F);

if n = 1 then write('0 0')

else

begin

for i := 1 to n-1 do

begin

if Data[i-1] < Data[i] Then

begin

if not up Then

begin

up := True;

now := 0;

end;

now := now + (Data[i] - Data[i-1]);

if now > max Then max := now;

end;

if Data[i-1] > Data[i] Then

begin

if up Then

begin

up := False;

now := 0;

end;

now := now + (Data[i-1] - Data[i]);

if now > min Then min := now;

end;

write(max, ' ',min);

end;

end.

Объяснение:

По коду видно

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.