Помогите по информатика , заранее спасибо . Если что в последним написано "** языке...

Question

Помогите по информатика , заранее спасибо . Если что в последним написано "на языке pascal"

---

Answer 1

Ответ:

Псевдокод

алг

нач

цел n,i,S

ввод n

S := 0

нц для i от 1 до n

S := S + i

кц

вывод S

кон

Паскаль

program z1;

var n,i,S:integer;

begin

read (n);

S:=0;

for i:=1 to n do

S:=S+i;

write(S)

end.