Решаем не сложные задачи на разные темы., задачи на циклы, массивы, строки. Опции

[brut03]

Вот они:

1) В заданной последовательности определить максимальное количество подряд идущих положительных чисел. (Без использования массива)

2) Дано натуральное число N (N>9) определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример: N=10025000 - количество нулей = 2.

3) На отрезке [2;n] найти все натуральные числа, сумма цифр которых при умножении числа на А не изменится.

4) Определить наименьший элемент каждой четной строки матрицы А размера [M;N].

5) Дана квадратичная матрица порядка М. Повернуть ее на
а) 90; б) 180; в) 270 градусов в положительном направлении.

6) На отрезке [100;N] ((2^10)<N<(2^31)) найти количество чисел, составленных из цифр a, b, c.

7) Составить программу перевода данного натурального числа в р- ичную систему счисления. (2<=p<=9)


Помогите пожалуйста, если не сложно.
Заранее благодарен!

Сообщение отредактировано: brut03 - 20.04.2004 16:39

[Altair]

7.

Код

const
n=15; m=15;
{ так выглядит матрица:
1,2,3,...n
2
3...
m
}
type
atype= array[1..n] of array[1..m] of integer;

var
ar:array[1..m] of integer;
a:atype;
nmax,mmax,i,j:integer;
{------------------}

procedure sort(var x:array of integer; left,rig:integer);
var l,r,a:integer;
begin
l:=left; r:=rig; a:=x[l];
repeat
  while (x[r]>=a) and (l<r) do r:=r-1;
  x[l]:=x[r];
  while (x[l]<=a) and (l<r) do l:=l+1;
  x[r]:=x[l]
until r=l;
x[l]:=a;
if left<l-1 then sort(x,left,l-1);
if r+1<rig then sort(x,r+1,rig)
end;
Procedure PRINT(a:atype; nmax,mmax:integer);
var i,j:integer;
begin
for i:=1 to nmax do
  begin
  for j:=1 to mmax do write(a[i,j]);
  writeln;
  end;
end;
{--------}
var k:integer;
Begin
write('K-BO CTPOK='); readln(mmax);
write('K-BO CTOLBZOB='); readln(nmax);
Writeln('POSTROCHNO VVEDITE MATRIZY');
for i:=1 to mmax do
for j:=1 to nmax do
begin
  write('a[',i,',',j,']=');
  readln(a[i,j])
end;
{------}
writeln;
print(a,mmax,nmax);
writeln;
{---------}
for i:=1 to nmax do
begin
  for j:=1 to mmax do ar[j]:=a[j,i];
  sort(ar,0,mmax-1);
  for j:=1 to mmax do a[j,i]:=ar[j];
end;
{--------}
writeln;
print(a,mmax,nmax);
readln
end.