Математическое задание

05.05.2010, 16:21. **Показов** 1023. **Ответов** 3

Студворк — интернет-сервис помощи студентам

задача такая: Найти min 6-значное число, которое уменьшается в 3 раза, после того, как последняя цифра, равная 1 переместится на первое место.
Прогу я написал, но ответ-бред. Помогите плиз.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var i,a,b,c,d,e,f,g,m :longint;
begin
for i:= 999991 downto 100001 do begin
a:= i div 100000;
b:= (i div 10000) mod 10;
c:= (i div 1000) mod 100;
d:= (i div 100) mod 1000;
e:= (i div 10) mod 10000;
f:= i mod 100000;
g:= f*100000+a*10000+b*1000+c*100+d*10+e;
if(f=1)and((i/g)=3) then m:=i
end;
writeLn(m);
end.

@Jazon_deenAlt · 05.05.2010, 16:26

cemenz, попробуйте так

Pascal
1
2
3
4
5
6
7
8
9
var i,a,b:longint;
begin
for i:= 999991 downto 100001 do
if i mod 10 = 1 then begin
a:= i div 10 + 100000;
if a*3=i then b:=i
end;
writeLn(b);
end.

@кот Бегемот · 05.05.2010, 16:29

Сообщение от cemenz

задача такая: Найти min 6-значное число, которое уменьшается в 3 раза, после того, как последняя цифра, равная 1 переместится на первое место.
Прогу я написал, но ответ-бред. Помогите плиз.

Pascal
1
2
3
4
5
6
7
8
9
10
var i :longint;
begin
for i:= 100001 to 999991 do 
if( i mod 10=1) and((i div 10+100000)*3=i)then 
begin
writeln(i);
break;
end;
readln;
end.

05.05.2010, 16:34

Jazon_deenAlt и кот Бегемот, спасибо, заработало!
При чем обе, при чем правильно! Ура!

Новые блоги и статьи Все статьи Все блоги /
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью

cemenz
	05.05.2010, 16:34
	Jazon_deenAlt и кот Бегемот, спасибо, заработало! При чем обе, при чем правильно! Ура!