Надо сегодня!!!!!!!!!!!! Помогите пожалуйста.

Question

Надо сегодня!!!!!!!!!!!! Помогите пожалуйста.

---

Comments

переведи, и на каком языке нужно?

---

Паскаль

---

Сложите алгоритм вычисления суммы целых чисел от 1 до 100

---

1 Присвоить начальное значение S:=0, x:=1

---

2 пока x<=100, выполнить команду ...............

---

3 напечатать значение s

---

4 конец алгоритмa

Answer 1

Ответ:

var s,x: integer;

begin

s:=0;

x:=1;

while (x

 begin

 s:=s+x;

 x:=x+1;

 end;

writeln(s);

end.