Предмет: Информатика, автор: VaTiger

Найти сумму членов последовательности. Писать на Паскале

Приложения:

Ответы

Автор ответа: krymer220
0

Ответ:

Объяснение:

Чет знакомое задание, вы случаем не студент?

program Summa;

var

i,t,n:integer;

S,P:real;

BEGIN

writeln('Введите последнее число последовательности n.');

readln(n);

S:=0;

t:=1;

for i:=1 to n do

begin

t := t*i;

writeln('!',i,'=',t);

S:=S+(1/t);

end;

writeln('Сумма=',S,'.');

end.


krymer220: Ну я студент 1 курса, у меня щас по программе, было идз только, ряд другой и еще произведение надо было найти.
VaTiger: Нет, не студент)
Похожие вопросы
Предмет: Математика, автор: ivanarchipov06
Предмет: Химия, автор: kristinakuts20