Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Laba2;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- Num, i, LeftSight: Integer;
- RightSight: Real;
- IsCorrect: Boolean;
- begin
- IsCorrect := False;
- repeat
- try
- Write('Пожалуйста, введите натуральное число :');
- Readln(Num);
- IsCorrect := True;
- except
- Writeln('Ошибка!Пожалуйста, введите натуральное число');
- end;
- until(IsCorrect);
- LeftSight := 0;
- RightSight := (Num * (Num + 1) * (2 * Num + 1)) / 6;
- for i := 1 to Num do
- LeftSight := LeftSight + i * i;
- if LeftSight = RightSight then
- Writeln('Формула верна')
- else
- Writeln('Формула верна только для натуральных чисел');
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement