Помогите в программе 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
Не нашли ответ?
Похожие вопросы