Форум » Обработка целых чисел » Задание 17, задача 200. Не сходится ответ. » Ответить
Задание 17, задача 200. Не сходится ответ.
НатальяП: Здравствуйте. Текст программы (задача 200) begin var i: text; assign(i, 'd:\17\17-199.txt'); Reset(i); var k := 0; var ma := -300000; var a := ReadlnInteger(i); var b := ReadlnInteger(i); while not eof(i) do begin var c := ReadlnInteger(i); if (b > 0) and (b >= 100) and (b <= 999) and odd(b) and not ((a > 0) and (a >= 100) and (a <= 999) and odd(a)) and not ((c > 0) and (c >= 100) and (c <= 999) and odd(c)) then (k, ma) := (k + 1, max(a + b + c, ma)); (a, b) := (b, c); end; print(k, ma); end. Должно быть 11 14934, а получилось 94 18841 Где ошибка? Спасибо.
Ответов - 3
Поляков: Спасибо за замечание. Опечатка в условии. Там нужно искать ДВУЗНАЧНЫЕ числа. Условие исправлено.
НатальяП: *PRIVAT*
Поляков: Задачу 201 перевел на трёхзначные. Ваш ответ верный. Спасибо.
полная версия страницы