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

Ответы 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.
    • Автор:

      abe
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years