Помогите в программе Pascalвсё в 1 программке

Помогите в программке Pascal
всё в 1 программке

Задать свой вопрос
2 ответа
Var
    i, n, s, p: integer;

begin
    readln(n);
    
    s := 0;
    for i := 1 to n + 1 do
        s := s + i * i;
    writeln('S = ', s);
    
    p := 1;
    for i := 1 to n - 5 do
        p := p * i * i * i;
    writeln('P = ', p);
    
    writeln('S/P = ', s / p);
end.
Vitalik Gafinovich
спасибо
Борис Суфьяров
можно просто кнопку надавить. пожалуйста
\displaystyle S=\sum_i=1^n+1i^2; \quad P=\prod_i=1^n-5i^3

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=0;
  var p:=1.0;
  var n:=ReadInteger('N=');
  for var i:=1 to n-5 do begin s+=i*i; p*=i*i*i end;
  for var i:=n-4 to n+1 do s+=i*i;
  Writeln('s=',s,', p=',p,', s/p=',s/p)
end.

Тестовые решения
N= 8
s=285, p=216, s/p=1.31944444444444

N= 15
s=1496, p=4.7784725839872E+19, s/p=3.13070750894991E-17
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт