close

Вход

Забыли?

вход по аккаунту

?

8

код для вставкиСкачать
Задание Вычислить: y=1!+2!+3!+...+n!.
Листинг
uses Crt;
var p,r,i,s:Integer;
begin
clrscr;
s:=1;
p:=0;
Write('r=');
Readln(r);
for i:=1 to r do
begin
s:=s*i;
p:=p+s;
end;
Writeln('p=',p);
Readln;
end.
Блок-схема
Документ
Категория
Разное
Просмотров
6
Размер файла
44 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа