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.

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

Answer 2

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