Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Срочно Помогите пожалуйста
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 ]
  • Страница 1 из 1
  • 1
Поиск: