На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.
Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

АвторСообщение





Сообщение: 15
ссылка на сообщение  Отправлено: 21.02.23 19:05. Заголовок: Задача 6198 с сайта KEGE


(Т. Коняев) В файле содержится последовательность натуральных чисел, каждое из которых не превышает 100000. Назовём тройкой чисел три идущих подряд элемента последовательности. Необходимо определить количество троек, НОК которых является простым числом. Гарантируется, что такие тройки имеются в файле. В качестве ответа укажите сначала количество таких троек, а затем наименьший НОД элементов таких троек. НОД - наибольший общий делитель; НОК - наименьшее общее кратное. Простое число - число, которое имеет только два натуральных делителя, т.е. делится только на себя и на единицу.
Количество троек у меня получается 9, а в ответе 8. Не могу понять, где я ошибаюсь.
 
##
uses school;
function IsP(x:int64):boolean;
begin
result:=true;
for var j:=2 to trunc(sqrt(x)) do
if x mod j=0 then begin result:=false;exit; end;
end;
var l:=new List<Int64>;
var a:=readlines('17-6198.txt').Select(w->w.ToInteger).ToArray;
for var j:=0 to a.High -2 do
if IsP(LCM(LCM(a[j],a[j+1]),a[j+2])) then l.Add(GCD(GCD(a[j],a[j+1]),a[j+2]));
print(l.Count, l.Min);


Спасибо: 0 
ПрофильЦитата Ответить
Новых ответов нет


Ответ:
1 2 3 4 5 6 7 8 9
видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 1713
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет