IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> надо решить 3 задачи, легкие
minya
сообщение 29.05.2005 17:02
Сообщение #1


Гость






плачу за каждую 3 вмз
если мало - пишите
очень надо.


Эскизы прикрепленных изображений
Прикрепленное изображение
 К началу страницы 
+ Ответить 
Ladno
сообщение 31.05.2005 21:10
Сообщение #2





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


У первых двух не пойму условия
Третью могу решить
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 31.05.2005 21:34
Сообщение #3


Гость






Вот тебе бесплатное решение для второй задачи smile.gif
var
  m, n: byte;

  p, s: real;
  i, k, i_fact: integer;
  x, x_curr: real;
begin
  write('Введите m: '); readln(m);
  write('Введите n: '); readln(n);
  write('Введите x: '); readln(x);

  if abs(x) > 0.0001 then begin
    s := 0; x_curr := x;
    for k := 1 to m do begin
      s := s + (1 / x_curr);
      x_curr := x_curr * x_curr;
    end;

    p := 1; i_fact := 1;
    for i := 2 to n do begin
      i_fact := i_fact * i;
      p := p * (s + 1 / i_fact);
    end;
    writeln('Результат = ', p:10:5)
  end
  else writeln('Ошибка: Делить на ноль нельзя');
end.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 23.07.2025 0:30
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"