Сумма ряда, матрица

[pie59]

Пожалуйста решите не трудные задачки, сматрел в разделе "алгоритмы" не нашел.
Думаю кто помнит материал, у того это займет минут 5-10.
Я не могу, а времени уже нет.
1. Вычислить сумму

S= (значек суммы вверху n, внизу i=1) 1/i!

как я понял нужно найти единицу, деленную на факториал введенного числа.

2. Если в заданной целочисленной прямоугольной матрице имеются числа, кратные сумме своих индексов, то напечатать индексы таких элементов, иначе сообщить об их отсуствии.

Кто сможет помочь, в нужное мне время. Тому постараюсь как нибудь помочь с чем либо, если получится. Но думаю задание не трудное. Скоро зайду сюда, отпишусь.

[Хыиуду]

Естественно в разделе "Алгоритмы" такого нет. Эти задачи 1) не являются сложными, 2) не имеют практического применения
1.

Код: Выделить всё

k:=1;
for i:=1 to n do
begin 
  k:=k*i;
  s:=s+1/k;
end;

2.

Код: Выделить всё

for i:=1 to N do
for j:=1 to M do
  if A[i,j] mod (i+j)=0 then writeln(i,' ',j);

--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Да, и еще: устное предупреждение за ненадлежащее название темы

[atavin-ta]

Эти задачи 1) не являются сложными

Поддерживаю.

не имеют практического применения

Практическое применение часто имеют довольно странные задачи.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
В "алгритмах" этого быть не должно в любом случае, так как оба алгоритма содержатся в постановках самих задач.

[pie59]

Я правильно решил ? проверьте пож.
1 задача вроде работает.
Во второй не могу разобраться с типами. Не совместимы реал и инт.
1)
var k,s:real;
i,n:integer;
begin
write('введите число');readln(N);
k:=1;
for i:=1 to n do
begin
k:=k*i;
s:=s+1/k;
end;
writeln('s=',s);
end.

2)
const n=4;m=4;
var A:array[1..N,1..M] of real;
i,j:integer;
begin
writeln('Введите матрицу');
for i := 1 to n do
begin
for j := 1 to 2*n do
read(A[i,j]); end;
for i:=1 to N do
begin
for j:=1 to M do
if (A[i,j] mod (i+j))=0 then writeln(i,' ',j);
end;end.

[Хыиуду]

for i := 1 to n do
begin
for j := 1 to 2*n do
read(A[i,j]); end;

Во-первых, begin и end тут не нужны, во-вторых, цикл по j должен быть до M - иначе вызовет ошибку переполнения
Ошибка с типами ясна - к типу real не применима операция mod. Сделайте элементы матрицы не real, а integer