Question

Нужен о написать программу в Pascal, помогите пожалуйста

Answer 1

var

n,i: integer;

s: double;

begin

readln(n);

for i:=1 to n do

 s:=s+(1/i**3);

write(s);

end.

Answer 2

Если на freepascal то вот
uses math;
var
n,i: integer;
s: double;
begin
readln(n);
for i:=1 to n do
s:=s+(1/i**3);
write(s:2:5);
end.

Answer 3

Скачала другой, все заработало, спасибо)

Answer 4

Можешь ещё с одной программой помочь пожалуйста?) Дана квадратная матрица. Найти сумму главной диагонали и вычесть полученное число из всех элементов матрицы, больших данной суммы

Answer 5

var
n,i,j, sum: integer;
mas: array[1..100,1..100] of integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
read(mas[i,j]);
readln;
end;
for i:=1 to n do
inc(sum, mas[i,i]);
for i:=1 to n do
for j:=1 to n do
if (mas[i,j]>sum) then dec(mas[i,j], sum);
writeln('Вывод');
for i:=1 to n do
begin
for j:=1 to n do
write(mas[i,j], ' ');
writeln;
end;
end.

Answer 6

Если я конечно все правильно понял..