Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите решить задачу

Автор: joker1989 17.05.2007 16:58

Дано х, определить z.

Добавлено через 3 мин.
Извините, над суммой не H, а 4.


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Diablo 17.05.2007 19:17

должно быть так

 program summa;
uses crt;
var n,x:integer;
    z,s:real;
begin
clrscr;
  s:=0;
  write('vvedite x=');
  readln(x);
  for n:=1 to 4 do
    s:=s+exp((2*n+1)*ln(x));
  z:=0;
  for n:=5 to 10 do
    z:=z+exp(n*ln(x));
  z:=z+s;
  write(z:0:0);
readln
end.