SHARE
TWEET

Untitled

a guest Sep 17th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top