Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Создать программу на турбо паскаль

Ответ оставил Гость

У меня получилось вот что:
дело в том, что по условию задачи НЕПОНЯТНО, что за зверь этот Z.
Я в программе просто задал его датчиком случайных чисел.
Если Z просто вводится с клавиатуры, то для тебя не составит большого труда вместо моей строки
z:=(100+round(666))/100;
вставить свою, например:
z:=2015.3 ;

uses Crt;
const n=10;
var  i: integer;
     S, z: real;
begin

 ClrScr;
 Randomize;
 S:=0;
 z:=(100+round(666))/100;
 WriteLn( z = , z:8:3);
 for i:=1 to n do
   begin
       S:=S+z*z/i;
       WriteLn( S [, i,]= , S:8:3);
   end;
 WriteLn( S = , S:8:3);
 ReadLn;
end.