Определить, есть ли в десятичной записи пятизначных чисел одинаковые цифры

@weqs · Регистрация: 22.10.2009

Author24 — интернет-сервис помощи студентам

2. Даны два пятизначных числа. Определить, есть ли в их десятичной записи одинаковые цифры.
3. Дан двумерный массив чисел. Расположить в нем строки в порядке возрастания значений их первых элементов.

@Puporev · 17.11.2009, 19:57

№3.

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:4);
    end;
   writeln;
  end;
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i,1]>a[j,1] then
for k:=1 to n do
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Результат перестановки:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@weqs · 17.11.2009, 21:33 **[ТС]**

помогите пожалуйста решить №2

@Puporev · 17.11.2009, 21:56

weqs, Условие непонятное,что с чем сравнивать, и как решать, в общем виде, или через mod, div делать цифры.

@Wassago · 17.11.2009, 22:24

Если правильно понял:

код

Pascal

uses crt;
var i,j:integer;
     a:array[1..5]of integer;
     b:array[1..5]of integer;
    
begin
clrscr;
  write('первые 5ть чисел:');
 for i:=1 to 5 do
  begin
   a[i]:=random(9);
   write(a[i],' ');
  end;
    writeln;
    write('вторые 5ть чисел:');
 for i:=1 to 5 do
  begin
   b[i]:=random(9);
   write(b[i],' ');
  end;
  writeln;
  writeln;
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
     begin
   if a[i]=b[j] then
     writeln('число:',a[i],' на месте (',i,') первых 5ть чисел - повторяется с числом: ',b[j],' стоящим на месте (',j,') во второй 5ке чисел');
     end;
        writeln;
  end;
 
end.

@weqs 2 / 2 / 0 Регистрация: 22.10.2009 Сообщений: 119
		1
	Определить, есть ли в десятичной записи пятизначных чисел одинаковые цифры 17.11.2009, 19:52. Показов 1640. Ответов 4 Метки нет (Все метки) 2. Даны два пятизначных числа. Определить, есть ли в их десятичной записи одинаковые цифры. 3. Дан двумерный массив чисел. Расположить в нем строки в порядке возрастания значений их первых элементов. 0

@weqs 2 / 2 / 0 Регистрация: 22.10.2009 Сообщений: 119
	17.11.2009, 21:33 [ТС]	3
	помогите пожалуйста решить №2 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2009, 21:56	4
	weqs, Условие непонятное,что с чем сравнивать, и как решать, в общем виде, или через mod, div делать цифры. 0

	17.11.2009, 22:24

Опции темы