Форум » Обработка числовых последовательностей » Задание 27 (досрок 2020 1-й вариант) » Ответить
Задание 27 (досрок 2020 1-й вариант)
snek: Здравствуйте. Можете оценить на сколько баллов выглядит мое решение и проверить упустил ли я что-то, пожалуйста. Сама задача: https://imgur.com/a/gYar03R А вот моё решение: [more]var N, i, MaksMod2, MaksModElse: Integer; MaksMod17_2, MaksMod17_Else, S1, S2: Integer; x: Integer; begin readln(N); MaksMod2 := 0; MaksModElse := 0; S1 := 0; MaksMod17_2 := 0; MaksMod17_Else := 0; S2 := 0; for i :=1 to N do begin readln(x); if (x mod 2 = 0) then begin if ((x mod 17 = 0) and (x > MaksMod17_2)) then MaksMod17_2 := x else if (x > MaksMod2) then MaksMod2 := x; end else begin if ((x mod 17 = 0) and (x > MaksMod17_Else)) then MaksMod17_Else := x else if (x > MaksModElse) then MaksModElse := x; end; end; if ((MaksMod17_2 = 0) or (MaksMod17_Else = 0)) then writeln('0',' ','0') else begin if ((MaksMod17_2 + MaksMod2) > (MaksMod17_Else + MaksModElse)) then writeln(MaksMod17_2, ' ', MaksMod2) else writeln(MaksMod17_Else, ' ', MaksModElse); end; end.[/more] Заранее спасибо)
Ответов - 3
snek: Код картинкой: https://imgur.com/pQdaYYj
cabanov.alexey: Есть вопрос по случаю, когда два числа чётны/нечётны и кратны 17. Если не считать два кратных максимума, то возможна ошибка. Вывод неверный. Потому что в выводе проверяется существование обоих кратных 17, но не по отдельности. Если чётный кратный 17 есть, а нечётного нет, то всё равно будет 0 0. Также видится пропуск ситуации вида 0+20000>51+51 И для чего S1, S2?
snek: Понял ошибки, спасибо.
полная версия страницы