составить цикл : найти все трехзначные числа, в которых есть одинаковые цифры
пожалуйста помогите!!
Ответы
Ответ дал:
0
var i,j,k: integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i=j) or (i=k) or (j=k) then
write(i,j,k,' ');
end.
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i=j) or (i=k) or (j=k) then
write(i,j,k,' ');
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад