6. Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек с недостатком, свыше 50 копеек (вклю- чая 50) - с избытком). Используйте компьютер, чтобы вве- сти точную сумму налога и вывести, сколько следует упла- тить.

Решение:

Чтобы решить эту задачу, нужно реализовать алгоритм округления суммы налога. Если копейки меньше 50, округляем в меньшую сторону. Если копеек 50 или больше, округляем в большую сторону.

program tax_rounding;
var
  tax_amount: real;
  rounded_tax: integer;
begin
  writeln('Введите сумму налога (рубли.копейки):');
  readln(tax_amount);

  // Округляем до ближайшего рубля
  if (tax_amount - trunc(tax_amount)) < 0.5 then
    rounded_tax := trunc(tax_amount)
  else
    rounded_tax := trunc(tax_amount) + 1;

  writeln('Сумма к уплате: ', rounded_tax, ' руб.');
end.

Пример:

1. Если ввести сумму налога 10.49, то программа выведет 10 руб.
2. Если ввести сумму налога 10.50, то программа выведет 11 руб.

Ответ: Программа округляет сумму налога до ближайшего рубля.