Question

Даю 60 баллов! Помогите!

1.
Даны x, y, z. Напишите программу для вычисления значения арифметических выражений.

a= (x + y - z) / (x² + 2)

2.
Составте программу для решения задачи.
На кондитерской фабрике конфеты из бункера, вмещающего S кг конфет, упаковывают в коробки по N г. Сколько коробок будет заполнено? Сколько г конфет будет в незаполненной коробке?

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var (x,y,z):=ReadReal3('Введите x,y,z');
  var a:=(x+y-z)/(x*x+2);
  Writeln(a)
end.

№2

begin
  var (s,n):=ReadInteger2('Введите S,N:');
  s*=1000; // перевод в граммы
  Writeln('Будет заполнено коробок: ',s div n);
  Writeln('В незаполненной коробке останется вес, г: ', s mod n)
end.