Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- i,n : integer;
- sum : real;
- IsCorrect : Boolean;
- begin
- IsCorrect:=FALSE;
- writeln ('Введите число суммирований');
- repeat
- try
- readln (n);
- if n>=0 then
- IsCorrect:=True
- else
- writeln('Ошибка ввода, введите целое положительное число');
- except
- writeln ('Ошибка ввода, введите целое положительное число');
- end;
- until (IsCorrect);
- sum:=1;
- for i:=2 to n do
- sum:= sum+1/(i*i*i);
- writeln ('Сумма равна ',sum:5:3);
- readln(n);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement