Var a, b, с : integer; begin a := 0; b := 0; с := 0; while 2 * a < 200 do begin b := b +...

Question

Var a, b, с : integer;
begin
a := 0; b := 0; с := 0;
while 2 * a < 200 do begin
b := b + 3;
c := c - 1;
a := a + b + c
end;
write(a - 10)
end.ЧТО ПОЛУЧИТСЯ В ОТВЕТЕ??????СРОЧНО,ПОЖАЛУЙСТА,ПОМОГИТЕ!!!!

Answer 1

Ответ, полученный в Pascal ABC: 100.

Comments

ОГРОМНОЕ СПАСИБО,ВЫ МОЙ СПАСИТЕЛЬ!!!!!!!

---

Не за что=).