Информатики, помогите составить программу, складывающую предложенные числа так, чтобы...

Question

Информатики, помогите составить программу, складывающую предложенные числа так, чтобы получилось круглое число от 100 до 1000 на языке pascal.

Comments

Да, извините, числа положительные, не включая 0

---

Понятно ведь, что не всегда может выйти круглое число:) Уточню ещё: если это возможно, чтобы получилось круглое. А 0 не относится ни к положительным, ни к отрицательным.

---

Неотрицательные и есть положительные:)

---

Ну уж извините, я ещё учусь, я всего лишь попросила о помощи, не стоит меня осуждать) никто вас не заставляет помогать

---

Хорошо, спасибо за попытку, я уже разобралась. Хорошего дня:)

Answer 1

var
  x, y, z: integer;
begin
  writeln('-1 - конец ввода и вывод суммы');
  repeat
    readln(y);
    
    if (y < -1) then 
      writeln('Эм... Не, не съем: отрицательная цЫфра.')
    else
      if (y >= 0) then 
        z := z + y
      else
        if (y = -1) then
          if (z >= 100) then
            break
          else
            writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');
 
    if (z > 1000) then
    begin
      writeln('Всё, перевес. Сумма чисел больше 1000.');
      exit;
    end;
    
    until (false);
  writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10);
end.