Есть алгоритм нужно перевести в систему паскаль вариант 1

Question

Есть алгоритм нужно перевести в систему паскаль
вариант 1

---

Скачать вложение Adobe Acrobat (PDF)

Comments

где алгоритм?

---

прикреплен фаил

---

ясно, с телефона было не видно

Answer 1

Uses crt;var s:real;i:integer;beginwriteln('введіт s ');readln(s);for i:=1 to 5 do s:=s+((s*s+i)/i);writeln(s:8:3);end.

Comments

прям спас,спс большое

Answer 2

//Pascal
//var 1
var i:integer;
    s:real;
begin
  readln(s);
  for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
  writeln(s);
end.