Форум » Обработка целых чисел » Задание 17(41) » Ответить
Задание 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
polyakovss: Здравствуйте! Вашу программу можно исправить, например, так: if ((i mod 64 = 13) or (i mod 64 = 15)) and ((i mod 3 <> 0) and (i mod 5 <> 0)) then Или так:[pre2] 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.[/pre2]Или исправить так (PascalABC.NET):[pre2] 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.[/pre2]
Светлана Митрофанова: Спасибо! Оперативно! Очень полезный ресурс!
полная версия страницы