помогите с паскалем? - есть ответ

Ответы:

jit.md

var n,s,i:integer;
function fact(x : integer) : longint;
begin
if x <= 1 then
fact := 1
else
fact := x * fact(x - 1);
end;
begin
write("n=");
readln(n);
flag:=false;
s:=1;
for i:=2 to n do
begin
if flag then
s:=s+fact(i)
else
s:=s-fact(i);
flag:=not(flag);
end;
writeln("s = ",s);
readln;
end.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.