A: Послiдовнiсть Full score: 15 Time limit: 1 s Real time limit: 5 s Memory limit: 256M Задача A: Послiдовнiсть - id1413640620220615 от GINVIC 15.06.2022 13:35

Question

Информатика: A: Послiдовнiсть Full score: 15 Time limit: 1 s Real time limit: 5 s Memory limit: 256M Задача A: Послiдовнiсть Потрiбно побудувати послiдовнiсть a довжиною n, що виконувалися обмеження: • Для кожного i (1 6 i 6 n) l 6 ai 6 r. • Для кожного i (1 6 i n) ai має бути дiльником ai+1. • Для кожного i (1 6 i n) ai ai+1. Потрiбно знайти максимально можливу довжину послiдовностi. Формат вхiдних даних Перший рядок мiстить два цiлi числа l та r (1 6 l 6 r 6 1018). Формат вихiдних даних Виведiть одне цiле

GINVIC · Accepted Answer

Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )

for i:=1 to 20 do A[i]:=random(9); // заполняем массив

for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;

for i:=1 to 20 do write(A[i]:3); // Выводит весь массив

writeln(); // просто перевод на новую строку для красоты

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

MOGZ ответил