2 пятиминутные задачки (Паскаль)

[pie59]

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

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

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

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

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

[profi]

1-ая задача, по второй давайте наработки.

uses crt;
var
   s:real;
   i,n:integer;
function factorial(n:integer):integer;
begin
     if n<=1 then factorial:=1
else
     factorial:=n*factorial(n-1);
end;
begin clrscr;
write('Vvedite n: ');
readln(n);
s:=0;
for i:=1 to n do
    s:=s+1/factorial(i);
writeln('Suma: ',s:3:2);
end.

[Rid]

вот решение 2ой задачи

program test_2;

uses crt;

type mass=array [1..20,1..20] of word;

var  a:mass;
     n,m,i,j,k:byte;
     
begin clrscr;
write('Enter numbert str->');readln(n);
write('Enter numbert stolb->');readln(m);
writeln('Enter Array');
for i:=1 to n do
    for j:=1 to m do begin
    write('a[',i,',',j,']:');
    readln(a[i,j]);
    end;
writeln('Output!!!');
for i:=1 to n do
    for j:=1 to m do
    if (a[i,j] mod (i + j) = 0) then begin
     k:=1;writeln('i=',i,' j=',j) end;
     
if k=0 then writeln('Kratn element net!!!');
end.

[profi]

Ну теперь все нормально наверное.

[LeBron]

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

1-ая задача, по второй давайте наработки.

uses crt;
var
   s:real;
   i,n:integer;
begin clrscr;
write('Vvedite n: ');
readln(n);
s:=0;
for i:=1 to n do
    s:=s+1/i;
writeln('Suma: ',s:3:2);
end.

Или я неверно понял условие (что вполне может быть, так как написаное автором условие и объясниение автором этого условия сильно отличаются), или Ваше решение неверно.
Думаю, имелось ввиду

var s,t:real; i,n:longint;
begin
{write('Vvedite n: '); }
readln(n);
s:=0; t:=1;
for i:=1 to n do begin
 t:=t/i;
    s:=s+t; end;
{writeln('Suma: ',s:3:2); }writeln(s);
end.

edit: дописал недостающий енд.

[profi]

LeBron вы выведете последний результат деления 1/n, а тут нужно посчитать сумму ряда.

[LeBron]

Моя программа работает верно - проверил. Вернее сначала она вообще не работала, так как переделывал Вашу, а не писал с ноля, поэтому забыл дописать енд в конце свого цикла. Ваша программа считает сигму для 1/n, что не соответствует условию задачи.
З.Ы. Автор, если не можете даже прочесть нормально условие задачи - Вам надо сильно подтянуть математику.

[profi]

1. Вычислить сумму

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

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

В условии одно, пояснение другое. Сначало определитесь, а потом задавайте вопросы. LeBron для страховки я оставлю свой вариант. Я его маленько подправил.