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

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

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

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





Сообщение: 1
ссылка на сообщение  Отправлено: 12.01.22 12:05. Заголовок: Задание 17, задача 204.


Добрый день, возник вопрос к данному заданию, не совпадает ответ, подскажите пожалуйста в чем может быть ошибка в моем алгоритме и как может вообще получиться сумма 23427, если подходящая тройка чисел это два отрицательных числа и одно положительное, согласно условия числа могут принимать значения от -10000 до 10000. Или мной было не верно воспринято задание.
 
{204) (П. Финкель) В файле 17-204.txt содержится последовательность целых чисел,
которые принимают значения от -10000 до 10000 включительно. Тройка идущих
подряд чисел последовательности называется уникальной, если только второе из
них является положительным числом, заканчивающимся на 9. Определите количество
уникальных троек чисел, а затем – максимальную из всех сумм таких троек.
ОТВЕТ: 206 23427}
var a:text;
s1,s2,s3,s,c:integer;
begin
s:=-30000;
c:=0;
assign (a,'D:\17data(1)\17-204.txt');
reset (a);
read (a,s1);
read (a,s2);
while not EOF(a) do begin
read (a,s3);
if (s2>0) and ((s2 mod 10) = 9)and (s1<0) and (s3<0) then begin
c:=c+1;
if s<(s1+s2+s3) then s:=s1+s2+s3;
end;
s1:=s2;
s2:=s3;
end;
close (a);
writeln (c,' ', s);
end.


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 9 [только новые]







Сообщение: 12
ссылка на сообщение  Отправлено: 12.01.22 14:15. Заголовок: Лаптев Андрей пишет:..


Лаптев Андрей пишет:

 цитата:
Тройка идущих
подряд чисел последовательности называется уникальной, если только второе из
них является положительным числом, заканчивающимся на 9.


Первое и третье числа могут быть равны нулю, а у вас s1 < 0 and s3 < 0.

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





Сообщение: 2
ссылка на сообщение  Отправлено: 12.01.22 14:24. Заголовок: согласен, но на отве..


zachto пишет:

 цитата:
Первое и третье числа могут быть равны нулю, а у вас s1 < 0 and s3 < 0.


согласен, но на ответ в данной задачи это не влияет.

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





Сообщение: 16
ссылка на сообщение  Отправлено: 12.01.22 14:45. Заголовок: У вас получается 113..


У вас получается 113 и 6241?

Спасибо: 1 
ПрофильЦитата Ответить





Сообщение: 3
ссылка на сообщение  Отправлено: 12.01.22 14:59. Заголовок: нет, 63 6241..


нет, 63 и 6241

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





Сообщение: 17
ссылка на сообщение  Отправлено: 12.01.22 15:14. Заголовок: Я, в общем, понял см..


Я, в общем, понял смысл условия.
Напишу по-питоновски, надеюсь, что вы поймете:
def func(x): 
if x > 0 and x % 10 == 9:
return True
return False

и
if func(a2) and not func(a1) and not func(a3): 
cnt += 1
maxk = max(maxk, a1 + a2 + a3)

В общем только для второго числа должно выполняться, что последняя цифра 9 и оно больше нуля. Другие числа, если и больше нуля, то должны иметь не равную 9 последнюю цифру.

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





Сообщение: 5
ссылка на сообщение  Отправлено: 12.01.22 15:30. Заголовок: Спасибо, мной не вер..


Спасибо, мной не верно было воспринято условие задачи. Ответы получил, вот код:

 
var a:text;
s1,s2,s3,s,c:integer;
begin
s:=-30000;
c:=0;
assign (a,'D:\17data(1)\17-204.txt');
reset (a);
read (a,s1);
read (a,s2);
while not EOF(a) do begin
read (a,s3);
if (s2>0) and ((s2 mod 10) = 9)and not ((s1>0) and ((s1 mod 10) = 9)) and not ((s3>0) and ((s3 mod 10) = 9)) then begin
c:=c+1;
if s<(s1+s2+s3) then s:=s1+s2+s3;
end;
s1:=s2;
s2:=s3;
end;
close (a);
writeln (c,' ', s);
end.


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



Сообщение: 3
ссылка на сообщение  Отправлено: 27.01.22 22:03. Заголовок: Как решить это в экселе?


Как решить это в экселе?

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 3245
ссылка на сообщение  Отправлено: 27.01.22 22:32. Заголовок: Елена_В пишет: Как р..


Елена_В пишет:
 цитата:
Как решить это в экселе?

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

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить



Сообщение: 4
ссылка на сообщение  Отправлено: 27.01.22 22:26. Заголовок: Эксель


Немного уточню мысль, есть ли возможность решить любое 17 задание в эксель? или без программирования не обойтись? Здесь https://kpolyakov.spb.ru/download/ege2022kp.7z - ege17.doc подобного задания не нашла, может где еще? помогите пожалуйста.

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

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