Срочно Помогите пожалуйста - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Срочно Помогите пожалуйста (2 задачи)

Срочно Помогите пожалуйста

1. Найти разность факториалов N!-M! для заданных N и M. Использовать подпрограмму.

2. Пользователь вводит с клавиатуры N чисел. Найти среднее арифметическое модулей отрицательных значений.

№1 | Автор: Justluck | 2011-05-10, 20:16 | Репутация: [ + 0 ]

1.
var
i,n,m:integer;c,s:longint;
begin
read(n,m);
c:=1;s:=1;
for i:=1 to n do
c:=c*i;
for i:=1 to m do
s:=s*i;
writeln('Разность факториалов = ',c-s);
end.

"Спасибо принимается повышением репутации ( Зелёный плюсик:) ). Спасибо

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-05-10, 20:24 | Репутация: [ + 211 ]

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-05-10, 20:24 | Репутация: [ + 211 ]

2.
var
n,i,s,c,a:integer;
begin
read(n);
for i:=1 to n do begin
read(a);
if a<0 then begin s:=abs(a);c:=c+1;end;end;
writeln('Среднее арифметическое модулей отрицательных значений = ',s/c);
end.

"Спасибо принимается повышением репутации ( Зелёный плюсик:) ). Спасибо

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№3 | Автор: Berestovskiy | 2011-05-10, 20:40 | Репутация: [ + 211 ]

репутацию изменить могу только через 24 часа. Спасибо огромное

№4 | Автор: Justluck | 2011-05-10, 20:42 | Репутация: [ + 0 ]

Обращайся ещё:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№5 | Автор: Berestovskiy | 2011-05-10, 20:47 | Репутация: [ + 211 ]

Срочно Помогите пожалуйста (2 задачи)

Страница 1 из 1
1

прикладная математика