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

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

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

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



Сообщение: 2
ссылка на сообщение  Отправлено: 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
Где ошибка?
Спасибо.

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


Администратор




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


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

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



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


*PRIVAT*

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




Сообщение: 2949
ссылка на сообщение  Отправлено: 14.10.21 18:18. Заголовок: Задачу 201 перевел н..


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

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

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