ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно, правильно, если hrust, grohot и rrrrrrrrrrr - это целочисленные переменные. Если строковые, то их перемножать нельзя. |
Надо еще смотреть на размерность типов данных, в частности здесь тип integer использовать нельзя, ибо он не может быть 11 значным, насчет longint тоже хз, так как он 10 значный, а здесь требуется 11 значный тип, как вариант писать свой модуль для работы с длинной арифметикой, но тогда задача вообще прикольной становится, чтобы проверить данное равенство требуется столько еще кода добавлять.
found
Попробуй сделать данную задачу в дельфи (там разрешено с более длинными числами работать, и покажи работу консольного приложения, т к проверка алгоритмики, а она и в дельфи и в ТП одинакова для данной задачи).
Цитата:| hrust*grohot:=rrrrrrrrrrr |
ХЗ че ты тут имел ввиду, ибо не видно что ты написал в var, короче либо полный код в студию, либо по данным тебе намекам сам пиши.
ЗЫ, короче вот накидал рабочий пример на дельфи
Код:
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,Math;
var
H,R,U,S,T,G,O :integer;
H1,h2,R1,r2,U1,S1,T1,G1,O1:int64;
i:integer;
begin
for h:=1 to 9 do begin
h1:=h*10000;
h2:=h*100;
for r:=0 to 9 do begin
r1:=r*1000;
r2:=r;
for i:=1 to 10 do
r2:=r2+r*Round(Power(10,i));
for u:=0 to 9 do begin
u1:=u*100;
for s:=0 to 9 do begin
s1:=s*10;
for t:=1 to 9 do
for g:=0 to 9 do begin
g1:=g*100000;
for o:=0 to 9 do
if (h1+r1+u1+s1+t)*(g1+r1*10+o*1000+h2+o*10+t)=r2 then begin
Writeln(h,r,u,s,t,g,o);
readln;
end;
end;
end;
end;
end;
end;
// Insert user code here ХРУСТ*ГРОХОТ=РРРРРРРРРРР
end.
|
практически никакой оптимизации, сделал только чтобы как можно меньше вычислений в самом внутреннем цикле, поэтому многое вычислял зараннее, итак вот наши циферки
ХРУСТ= 21649
ГРОХОТ=513239
РРРРРРРРРРР=11 111 111 111
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:49 10-05-2006 | Исправлено: ShIvADeSt, 04:15 10-05-2006 |
|
