РЕБЯТ СРОЧНО ПОМОГИТЕ РЕШИТЬ ЛАБОРАТОРКУ ПО ИНФОРМАТИКЕ. ДАЛА БЫ БОЛЬШЕ ПНК,НО ТОЛЬКО ЭТО...

Question

РЕБЯТ СРОЧНО ПОМОГИТЕ РЕШИТЬ ЛАБОРАТОРКУ ПО ИНФОРМАТИКЕ. ДАЛА БЫ БОЛЬШЕ ПНК,НО ТОЛЬКО ЭТО ОСТАЛОСЬ

---

Answer 1

Var
  n, y, i, j: integer;

begin
  readln(j, n);
  y := n;
  for i := 1 to j do
    y -= n + i;
  writeln(y);
end.

Если ещё нужно...

Comments

Спасибо. можешь блок схему нарисовать еще!??)