Помогите в программе 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.
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
спасибо
Борис Суфьяров
можно просто кнопку надавить. пожалуйста
Альбина Обойшева
// 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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов