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

Помогите в программе Pascal всё в 1 программе
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
[latex]\displaystyle S=\sum_{i=1}^{n+1}i^2; \quad P=\prod_{i=1}^{n-5}i^3[/latex] // 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы