Другие предметы, вопрос задал robotmax098 , 2 года назад

Разгадайте числововй ребус KKK= BK*AC. запрограммируйте ваши рассуждения


robotmax098: решить в паскале

Ответы на вопрос

Ответил smeshsonja
0
квас просто видеш звезда значит буквы надо периставить

smeshsonja: в каком смысле
robotmax098: в паскале
smeshsonja: будеш другом
robotmax098: окей
smeshsonja: добавь
smeshsonja: а как добовлять
robotmax098: прими заявку
smeshsonja: принил(а)
smeshsonja: тебя как звать
smeshsonja: а лет скоко
Ответил armen98
0
Я не крутой прогер, и, поэтому вот решение тупым перебором.
program ttt;
var k,a,b,c,i:longint;
begin
for k:=1 to 9 do begin

for b:=1 to 9 do begin

for a:=1 to 9 do begin

for c:=0 to 9 do begin

if (100*k+10*k+k = (10*b+k)*(10*a+c)) then writeln(k,k,k,'=',b,k,'*',a,c);

end
end
end

end
end.

Немножко неразборчиво написано, потому на сайте нет функции вставки программного кода. Так что извини.


robotmax098: спасибо
armen98: Пожалуйста.
Новые вопросы