Задача

[WhyBeNormal]

1)Надо в порядке возрастания написать числа от 1го до 10000 по пять чисел в каждой строке, которые могут быть представлены как сумма квадратов двух натуральных чисел.
2) Дана матрица n на n из чаров. надо написать функцию, которая определяет в каком столбце больше всего букв А, и в этом столбце считает скока цифр в нем и выводит их количество.
Спасибо.

[Sazary]

Первая прога:
Вроде работает. Только вот чисел слишком много - на экране умещаются только последние ) Так что лучше выводить в файл.

program chisla;
uses crt;

var
i,n,m,sk,z : integer;
fl : boolean;
begin
clrscr;
sk:=1;
for i:=2 to 10000 do
 begin
 z := round(int(sqrt(i)));
 fl := false;
 for n:=1 to z do
  begin
  for m:=1 to n do
   begin
   if n*n+m*m = i then
     begin
     write(i,'  ');
     if sk = 5 then begin
                    writeln;
                    sk := 1;
                    end
     else inc(sk);
     fl := true;
     break;
     end;
   end;
  if fl then break;
  end;

 end;


readln;
end.

[WhyBeNormal]

да можно сделать так чтоб все видеть, просто надо добавить сверху uses crt; и между writeln; и sk:=1 вставить readkey;
В общем спасибо.

[Sazary]

Вторая:
Матрица вводится из файла "wishd.txt". Его содержимое:

A 3 f A h d v
e A 3 A f 9 s
A f g A s d g
2 f A A A f g
A 3 6 4 h 8 o
f g r 4 A 3 e
4 g g 4 g g g

Сама прога:

program matrchar;
uses crt;

const n=7;
var
fin : text;
i,j,s,nj,d : integer;
matr : array[1..n,1..n] of char;
c : char;



begin
clrscr;

{vvod matricy}
assign(fin,'wishd.txt');
reset(fin);
for i:=1 to n do
 for j:=1 to n do
  begin
  read(fin,c);
  if (c=#32) or (c=#13) or (c=#10) then
                                    begin
                                    dec(j);
                                    continue;
                                    end;
  matr[i,j] := c;
  end;
close(fin);
{konec vvoda matricy}

{vyvod matricy}
for i:=1 to n do
 begin
 for j:=1 to n do
  write(matr[i,j],' ');
 writeln;
 end;
{--}

d := 0;
s := 0;
nj := 0;
for j:=1 to n do
 begin
 for i:=1 to n do
  if matr[i,j] = 'A' then inc(s);
 if s>d then
  begin
  d := s;
  {writeln('j=',j,' s= ',s);}
  nj := j;
  end;
  s:=0;
 end;
d := 0;
for i:=1 to n do
 if (ord(matr[i,nj])>=48) and (ord(matr[i,nj])<=57) then inc(d);

writeln;
writeln('Stolbets ',nj,' kolichestvo cifr= ',d);

readln;
end.

[Sazary]

да можно сделать так чтоб все видеть, просто надо добавить сверху uses crt; и между writeln; и sk:=1 вставить readkey;

Можно (я так и делал, когда проверял), только вот нажимать долго придется )