75 БАЛЛОВ! Помогите, пожалуйста, как можно решить эту задачу в Pascal ABC с использованием while / repeat ?
Замените буквы цифрами так, чтобы соотношение оказалось верным (одинаковым буквам соответствуют одинаковые цифры, разным-разные)
ХРУСТ*ГРОХОТ=РРРРРРРРРРР
Ответы
Ответ дал:
1
var a,b,c: int64;
i,j,k,n,m,r,p,s: integer;
begin
for i:=1 to 9 do // буква х
for j:=1 to 9 do // буква г
for k:=1 to 9 do // буква т
for n:=0 to 9 do // буква о
for m:=0 to 9 do // буква с
for r:=0 to 9 do // буква у
begin
p:=k*k mod 10;
a:=i*10000+p*1000+r*100+m*10+k;
b:=j*100000+p*10000+n*1000+i*100+n*10+k;
c:=p;
for s:=1 to 10 do c:=c*10+p;
if a*b=c then
begin
writeln('хруст = ',a);
writeln('грохот = ',b);
writeln('ррррррррррр = ',c);
end;
end;
end.
хруст = 21649
грохот = 513239
ррррррррррр = 11111111111
i,j,k,n,m,r,p,s: integer;
begin
for i:=1 to 9 do // буква х
for j:=1 to 9 do // буква г
for k:=1 to 9 do // буква т
for n:=0 to 9 do // буква о
for m:=0 to 9 do // буква с
for r:=0 to 9 do // буква у
begin
p:=k*k mod 10;
a:=i*10000+p*1000+r*100+m*10+k;
b:=j*100000+p*10000+n*1000+i*100+n*10+k;
c:=p;
for s:=1 to 10 do c:=c*10+p;
if a*b=c then
begin
writeln('хруст = ',a);
writeln('грохот = ',b);
writeln('ррррррррррр = ',c);
end;
end;
end.
хруст = 21649
грохот = 513239
ррррррррррр = 11111111111
wentana:
Program2.pas(3) : Неожиданный символ ' ' в первом for, что делать?(
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад