Составить алгоритм решения ребуса РАДАР=(Р+А+Д)^4. Строки использывать нелзя!!
перебором...
ввести 3 переменные: Р,А,Д - и вперед.
Ищи алгоритм решения "Volvo + Fiat = Motor" у нас на форуме. Он подойдет и для твоего случая...
ой...
только ключевые слова при поиске вводи Fiat Motor
)
Кстати, допустимы ли решения, когда разным буквам соответствуют одинаковые цифры?
нашел я этот фиат + вольво и.... ни фига не понял. особенно как ЭТО переделать под мой случай. помогите ламмеру разобраться плз...
Цикл по трем переменным: R, A, D... Основное выражение внутри цикла:
sum := R*10000 + A*1000 + D*100 + A*10 + R;
rad_4 := sqr(sqr(R+A+D));
if sum = rad_4 then
writeln(':', r,a,d,a,r,'=',r,a,d,'^4');
вот так получилось у меня только она не работает.
А чего ты цифры-то так ограничил? Не до 3, а до 9 должен проверять... Тогда все получается:
uses crt;
var
r, a, d: 0 .. 9;
dig : set of 0..9;
sum, rad_4: longint;
begin
clrscr;
for r:=0 to 9 do begin
include(dig,r);
for a:=0 to 9 do if not (a in dig) then begin
include(dig,a);
for d:=0 to 9 do if not (d in dig) then begin
include(dig,d);
sum := r*10000 + a*1000 +d*100 + a*10 + r;
rad_4:=sqr(sqr(r+a+d));
if sum = rad_4 then
writeln(r,a,d,a,r,'=(',r,'+',a,'+',d,')^4');
exclude(dig,d);
end;
exclude(dig,a);
end;
exclude(dig,r);
end;
end.
в начале у меня так и было, тоже не работало. но теперь я понял почему
у меня было