Помогите пожалуйста с лабой по ит (паскаль)

[na9domo]

hP5jNWejFHA.jpg
нужно 4ое и 5ое задание

[digitalis]

Помогаем.
1. Задание 4 - хрен поймёшь. Переписано, видимо, с ошибками - какие-то di, fi . Или уточни, или забей на него, как не имеющего решения. Такого мне видеть ещё не приходилось: сумма от (i=1)/2 .
2. Задание 5. Начни писа'ть, поскольку проще ничего не бывает, тут даже рекурсии не требуют. Даю бесценную подсказку: нужно использовать цикл for.

[Arigato]

Сообщение от na9domo

нужно 4ое и 5ое задание

А мне нужно ремонт дома сделать, помогите, пожалуйста (ну то есть сделайте за меня)...

[newerow1989]

Про 4-е задание я не понял, даю 5-е:

var x, y, y1: real;
    n: integer;
begin
   Write('x = '); Readln(x);
   y:=x;
   y1:=x;
   for n:=2 to 12 do
   begin
      y1:=y1*x*x/n;
      y:=y+y1;
   end;
   Writeln(y:2:5);
   Readln;
end.

[Arigato]

newerow1989, на счет ремонта предложение также в силе

[newerow1989]

Arigato, я не поеду к вам. Коронавирус.

[Arigato]

Я маску предоставлю и дезинфекцию для рук