Автор | Сообщение |
|
Отправлено: 24.05.21 10:41. Заголовок: 17, Почему код пропускает число?
(№ 2291) Рассматривается множество целых чисел, принадлежащих отрезку [1033; 7737], которые делятся на 5 и не делятся на 11, 17, 19 и 23. Найдите количество таких чисел и максимальное из них. Мой код: var i,count,max: integer; begin for i:=1033 to 7737 do begin if i mod 5 = 0 then begin if (i mod 11 <> 0) and (i mod 17 <> 0) and (i mod 19 <> 0) and (i mod 23 <> 0) then count+=1; if i > max then max:=i; end; end; println(count,max); end. Консоль выдает 7735, но это число делится на 17. Почему пропускает?
|
|
|
Ответов - 2
[только новые]
|
|
|
| Администратор
|
Сообщение: 2820
|
|
Отправлено: 24.05.21 10:57. Заголовок: В отличие от Питона,..
В отличие от Питона, отступы не выделяют блок. Вы забыли begin-end.
|
|
|
|
Отправлено: 24.05.21 14:44. Заголовок: Увидел, спасибо! :s..
Увидел, спасибо!
|
|
|
|