Предмет: Другие предметы,
автор: robotmax098
Разгадайте числововй ребус 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.
Немножко неразборчиво написано, потому на сайте нет функции вставки программного кода. Так что извини.
Похожие вопросы
Предмет: Математика,
автор: ольга1590
Предмет: Химия,
автор: AlexandraH2000
Предмет: Математика,
автор: fontikgalkina
Предмет: Физика,
автор: Kiryasar
Предмет: Английский язык,
автор: alexop09