Форум » Обработка целых чисел » Не понимаю где ошибка( паскаль) » Ответить
Не понимаю где ошибка( паскаль)
Кэйт: Рассматривается множество целых чисел, принадлежащих числовому отрезку [3439; 7410], которые удовлетворяют следующим условиям: − запись в двоичной и шестеричной системах счисления заканчивается разными цифрами; − кратны 9, 10 или 11. Найдите количество таких чисел и максимальное из них. var max, i, n: integer; begin max:= 3439; n:=0; for i:= 3439 to 7410 do begin if (i mod 2<>i mod 6)then if ( i mod 9 = 0) and ( i mod 10 =0) or (i mod 11 = 0) then begin n:=n+1; if i> max then max:=i; end; end; writeln (n,max); end.
Ответов - 4
cabanov.alexey: if ( i mod 9 = 0) or ( i mod 10 =0) or (i mod 11 = 0) then
Кэйт: А подскажите пожалуйста, как записать − запись в девятеричной системе заканчивается на 5?
cabanov.alexey: i mod 9 = 5
Егор225: Подскажите пожалуйста, как записать:запись в двоичной и в четверичной системах счисления заканчивается разными цифрами
полная версия страницы