Advertisement
Guest User

Untitled

a guest
Sep 17th, 2019
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.74 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9. var
  10.    i,n : integer;
  11.    sum : real;
  12.    IsCorrect : Boolean;
  13. begin
  14.    IsCorrect:=FALSE;
  15.    writeln ('Введите число суммирований');
  16.    repeat
  17.       try
  18.          readln (n);
  19.          if n>=0 then
  20.             IsCorrect:=True
  21.          else
  22.             writeln('Ошибка ввода, введите целое положительное число');
  23.       except
  24.          writeln ('Ошибка ввода, введите целое положительное число');
  25.       end;
  26.    until (IsCorrect);
  27.    sum:=1;
  28.    for i:=2 to n do
  29.       sum:= sum+1/(i*i*i);
  30.    writeln ('Сумма равна ',sum:5:3);
  31.    readln(n);
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement