Отправлено: 13.10.21 08:57. Заголовок: Задание 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
Где ошибка?
Спасибо.

 Отправлено: 13.10.21 18:20. Заголовок: Спасибо за замечание..

Спасибо за замечание. Опечатка в условии. Там нужно искать ДВУЗНАЧНЫЕ числа. Условие исправлено.

 Отправлено: 14.10.21 05:01. Заголовок: ­Если искать двузначн..

*PRIVAT*

 Отправлено: 14.10.21 18:18. Заголовок: Задачу 201 перевел н..

Задачу 201 перевел на трёхзначные. Ваш ответ верный. Спасибо.