упорядочивание матрицы

[Rom]

1. Дана целочисленная матрица а(3,5). Упорядочить ее строки по возростанию их максимальных элементов.

2. Найти все такие N(N<100), что у числа N! сумма цифр - простое число.

Помогите решить .. заранее благодарен

[alex_fcsm]

var i,j,m,x,code,t:integer;
    s:string;
    flag:boolean;

function  fact(x:integer):longint;
var i:integer;
    n:longint;
begin
n:=1;
for i:=1 to x do
  n:=n*i;
  fact:=n;
end;

begin
for i:=1 to 100 do
 begin
  Str(fact(i),s);
  m:=0;
   for j:=1 to length(s) do
    begin
     val(s[j],x,code);
     m:=m+x;
    end;
   flag:=true;
   for t:=1 to m do
    if m mod t = 0 then if (t<>1)and(t<>m) then flag:=false;
   if flag then writeln(i);
 end;

end.

[alex_fcsm]

uses crt;
const m=3;
      n=5;
var i,j,temp,k:integer;
    a:array[1..m,1..n] of integer;
    b,t:array[1..n] of integer;
begin
randomize;
clrscr;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100)-random(100);
   write(a[i,j]:5);
  end;
 writeln;
 end;
for i:=1 to m do
 begin
  b[i]:=a[i,1];
   for j:=2 to n do
    if a[i,j]>b[i] then b[i]:=a[i,j];
 end;

for i:=2 to m do
    for j:=m downto i do
      if b[j-1]>b[j] then
        begin
          Temp:=b[j-1];
          b[j-1]:=b[j];
          b[j]:=temp;
          temp:=j;
          for k:=1 to n do
           t[k]:=a[temp,k];
          for k:=1 to n do
           a[temp,k]:=a[temp-1,k];
          for k:=1 to n do
           a[temp-1,k]:=t[k];
        end;
writeln('=================================================');
for i:=1 to m do
 begin
  for j:=1 to n do
   write(a[i,j]:5);
 writeln;
 end;
writeln('=================================================');
for i:=1 to m do
 write(b[i]:5);
end.

[Rom]

Thanks alex_fcsm

[Rom]

2alex_fcsm проверил обе задачи решены не верно! =(

[alex_fcsm]

Лучше проверяйте
А если есть пример ошибки, то напишите посмотрю

[Teor]

Вторую задачу можно написать таким образом

program nn;
uses crt;
var  p,pp,n,suma:integer;
begin
clrscr;
n:=1;
repeat
n:=n+1;
p:=n;
suma:=0;
repeat
pp:=p;
p:=p div 10;
pp:=pp mod 10;
suma:=suma+pp;
until p=0;
if suma in [2,3,5,7,11,13,17] then writeln (n);
until n>=100;
readkey
end.

[alex_fcsm]

Сообщение от Teor

Вторую задачу можно написать таким образом

program nn;
uses crt;
var  p,pp,n,suma:integer;
begin
clrscr;
n:=1;
repeat
n:=n+1;
p:=n;
suma:=0;
repeat
pp:=p;
p:=p div 10;
pp:=pp mod 10;
suma:=suma+pp;
until p=0;
if suma in [2,3,5,7,11,13,17] then writeln (n);
until n>=100;
readkey
end.

Во-первых нужен факториал числа
Во-вторых, Вы все простые числа будете загонять во множество???

[Teor]

Вы все простые числа будете загонять во множество???

У нас же макс. возможное число n=99,а не пару миллионов.

нужен факториал числа

Незнаю нащет факториала, но сума цыфр в програме находиться.

[alex_fcsm]

Сообщение от Teor

У нас же макс. возможное число n=99,а не пару миллионов.

Почитайте что такое факториал и посчитайте его хотя бы до 20!


В задаче нужно считать сумму цифр факториала