Автор | Сообщение |
|
Отправлено: 03.05.21 23:12. Заголовок: Задание 17(41)
var n, M, i:integer; begin n:=0; M:=1; for i:=2371 to 9432 do begin if ((i mod 64 = 17) or (i mod 64 = 21))and ((i mod 3<>0) and (i mod 5<>0))then begin n:=n+1; M:=i; end; end; write (n,' ', M) end. Не сходится ответ.
|
|
|
Ответов - 2
[только новые]
|
|
|
Отправлено: 04.05.21 00:59. Заголовок: Ответ
Здравствуйте! Вашу программу можно исправить, например, так: цитата: | if ((i mod 64 = 13) or (i mod 64 = 15)) and ((i mod 3 <> 0) and (i mod 5 <> 0)) then |
|
Или так: цитата: | var n, M, i, a, b: integer; begin n:=0; for i:=2371 to 9432 do begin a := i mod 8; b := i div 8 mod 8; if ((a = 5) or (a = 7)) and (b = 1) and (i mod 3 <> 0) and (i mod 5 <> 0) then begin n:=n+1; M:=i; end; end; write (n,' ', M) end. |
|
Или исправить так (PascalABC.NET): цитата: | var n, M, i: integer; s: string; begin n:=0; for i:=2371 to 9432 do begin s:=System.Convert.ToString(i, 8).Right(2); if ((s = '15') or (s = '17')) and (i mod 3 <> 0) and (i mod 5 <> 0) then begin n:=n+1; M:=i; end; end; write (n,' ', M) end. |
|
|
|
|
|
Отправлено: 04.05.21 14:41. Заголовок: Спасибо! Оперативно!..
Спасибо! Оперативно! Очень полезный ресурс!
|
|
|
|