Исполнить алгоритм при K = 4 по шагам и записать значение величиныS

Question

Исполнить
алгоритм при K =
4 по шагам и записать значение величины
S

---

Answer 1

K S I
4 0 1
4 3 2
4 9 3
4 18 4
4 30 5

Так это выглядит на паскале:
Program ksi;
Uses crt;
Var k,s,i:integer;
begin
Clrscr;
Write ('k=');
Read (k);
S:=0;
i:=1;
While i<=k do begin<br>S:=S+3*i;
i:=i+1;
Writeln ('s=',s);
end;
Readkey;
end.

Comments

а со вторым поможете?

---

ага

---

там нужно использовать клавиши М+ МС и Мr и 1/x

---

а здесь получается значение величины S равно 5?где вывод S пишется 5?