Разгадайте числововй ребус KKK= BK*AC. запрограммируйте ваши рассуждения
robotmax098:
решить в паскале
Ответы
Ответ дал:
0
квас просто видеш звезда значит буквы надо периставить
в каком смысле
в паскале
будеш другом
окей
добавь
а как добовлять
прими заявку
принил(а)
тебя как звать
а лет скоко
Ответ дал:
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.
Немножко неразборчиво написано, потому на сайте нет функции вставки программного кода. Так что извини.
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.
Немножко неразборчиво написано, потому на сайте нет функции вставки программного кода. Так что извини.
спасибо
Пожалуйста.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад