program raf105;
var n,i:integer;
sum:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
sum += 1/i*i;
writeln('Сумма: ',sum);
end.
2. По условию которое могло быть на самом деле(1/(1*1)+1/(2*2)+1/(3*3)+...+1/(n*n), )program raf105;
var n,i:integer;
sum:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
sum += 1/(i*i);
writeln('Сумма: ',sum);
end.
Язык программирования PascalABC
Для начала нужно сделать заготовку как на 1-ой картинке. В ячейке A2 - символ "x", в ячейке A3 - символ "y". В ячейке B2 находится формула =КОРЕНЬ(ABS(2,7*B$3^2 - 8,3*B$3)) + 11,2. Это видно на скриншоте №1. Для ячейки B2 нужно задать точность до тысячных, поэтому смотрим на скриншот №2: нужно нажать на значок в разделе Число, выделенный красным квадратом, появится панель, в которой надо выбрать Числовой и число десятичных знаков — 3.
В ячейке B3 стоит число -1. В ячейке C3 находится формула =B3+0,6, с которой мы будем задавать шаг от 0,6. Потом нужно потянуть за квадратик (котрый находится на зеленом выделении ячейки справа снизу) вправо до того момента, пока в какой-нибудь ячейке не появится цифра 5-ть (у меня появилась в столбце L, это видно на скриншоте №4). Теперь поступаем также с ячейкой B2 — тянем вправо за квадратик до конца предыдущей строки (опять же, у меня это столбец L).
Таким образом, у нас имеется вторая строка со значениями x с шагом 0.6 от -1 до 5 и третья строка со значениями функции y, которая выполняется в зависимости от x