Помогите, пожалуйста, решить с подробным объяснением. Очень прошу!!!

Question

Помогите, пожалуйста, решить с подробным объяснением. Очень прошу!!!

---

Comments

Программу на Паскале?

---

Наверное, да.

---

Ну Вы на уроках на Паскале проги пишите?

---

Да

Answer 1

Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.

Comments

А как вы это сделали? А можете объяснить пожалуйста? У

---

Цикл с постусловием проходили?

---

Да