Question

Помогите написать программу в Pascal используя циклы. а)S квадратов чисел от 1 до n+1. б)P кубов чисел от 1 до n-5. в)частное от деления S на P. Записать это все в одну программу.

Answer 1

// var n,s,p,i:integer; - для значений n < 18
var n,s,i:integer; p:real;
begin
write('n = '); 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,' = ',s/p);
end.

Пример:
n = 10
s = 506
p = 1728000
s/p = 506/1728000 = 0.000292824074074074

Answer 2

Программа на языке Pascal, реализующая задание:

program SquareCubeQuotient;

var
  n, i, S, P, quotient: integer;

begin
  // Ввод значения n
  write('Введите значение n: ');
  readln(n);

// Вычисление S квадратов чисел от 1 до n+1
  S := 0;
  for i := 1 to n+1 do
  begin
    S := S + i * i;
  end;

// Вычисление P кубов чисел от 1 до n-5
  P := 0;
  for i := 1 to n-5 do
  begin
    P := P + i * i * i;
  end;

// Вычисление частного от деления S на P
  quotient := S div P;

// Вывод результатов
  writeln('S квадратов чисел от 1 до n+1: ', S);
  writeln('P кубов чисел от 1 до n-5: ', P);
  writeln('Частное от деления S на P: ', quotient);
end.

Пользователю предлагается ввести значение `n`, затем программа вычисляет сумму `S` квадратов чисел от 1 до `n+1`, сумму `P` кубов чисел от 1 до `n-5`, и частное от деления `S` на `P`. Результаты выводятся на экран.