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

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

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

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



Сообщение: 14
ссылка на сообщение  Отправлено: 26.04.21 20:04. Заголовок: 17


(№ 2321) (А. Куканова) Рассматривается множество целых чисел, принадлежащих числовому отрезку [1000; 9999], запись которых в шестеричной системе имеет не более 5 цифр и закачивается на 13 или 14. Найдите количество таких чисел и максимальное из них.
var p,x,k,i,max,n: integer;
begin
max:=0;
n:=0;
for i:=1000 to 9999 do
begin
x:=i;
p:=0;
while x>0 do
begin
k:= x mod 6;
x:= x div 6;
p:=P+1;
end;
if (p<=5) then
if (i mod 36 =13) or ( i mod 36=14)then
begin
if i>=max then
begin
max:=i;
n:=n+1;
end;
end;end;
writeln(n,' ',max);


end.
Не совпадает ответ

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


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




Сообщение: 2752
ссылка на сообщение  Отправлено: 26.04.21 21:25. Заголовок: Артур пишет: if (i m..


Артур пишет:
 цитата:
if (i mod 36 =13) or ( i mod 36=14)then

Вы берете 13 и 14 в десятичной системе.

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



Сообщение: 15
ссылка на сообщение  Отправлено: 26.04.21 21:56. Заголовок: Спасибо большое (там..


Спасибо большое (там получается 9 и 10)

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




Сообщение: 2753
ссылка на сообщение  Отправлено: 26.04.21 22:41. Заголовок: Артур пишет: там пол..


Артур пишет:
 цитата:
там получается 9 и 10

Да.

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





Сообщение: 4
ссылка на сообщение  Отправлено: 27.04.21 15:05. Заголовок: По-моему, код можно ..


По-моему, код можно сократить.
Есть команды, которые можно смело убрать из программы:

k:= x mod 6; - с цифрой делать ничего не нужно
f i>=max then
begin
max:=i;
- рассматриваемые числа упорядоченны по возрастанию,
т.о. следующее найденное число будет БОЛЬШЕ предыдущего

Вот мой вариант:
 
var
n, kNum, Max, kC, x : integer;
begin
max := 0;
kNum := 0;
for n := 1000 to 9999 do
begin
x := n;
kC := 0;
while x > 0 do
begin
kC := kC + 1;
x:= x div 6;
end;

if (kC <= 5) and ((n mod 36 = 9) or (n mod 36 = 10)) then
begin
max := n;
kNum := kNum + 1;
end;
end;
writeln(kNum,' ',max);
end.


Еще один вариант решения:
 
max6 := 3215 - 1; //максимальное 5-значное число в пятеричной системе 55555, в десятичной это будет 5**5 - 1 = 3214 (** - возведение в степень)
for n:= a to max6 do
if ((n mod 6 = 3) or (n mod 6 = 4)) and
(n div 6 mod 6 = 1) then
begin
inc(k);
max := n;
end;


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

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