Лучшие помощники
4 мая 2023 18:32
206

НАДО НАПИСАТЬ В ВИДЕ ПРОГРАММЫ ПАСКАЛЬ.

Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек — с недостатком, свыше 50 копеек (включая 50) — с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.ПРОШУ С ОБЪЯСНЕНИЕМ , СПАСИБО


1 ответ
Посмотреть ответы
Конечно, я могу помочь написать программу на языке Pascal, которая будет округлять сумму налога до ближайшего рубля.

Прежде всего, необходимо понимать, что округление до ближайшего рубля производится путем проверки дробной части числа. Если дробная часть меньше 0,5, то число округляется вниз, если же больше или равна 0,5, то число округляется вверх.

Вот как может выглядеть программа на языке Pascal, которая реализует такую логику:

```
program tax_calculation;

var
tax: real;
rounded_tax: integer;

begin
writeln('Введите сумму налога:');
readln(tax);

rounded_tax := round(tax); // округляем до ближайшего целого числа

if frac(tax) < 0.5 then
writeln('Сумма налога: ', rounded_tax)
else
writeln('Сумма налога: ', rounded_tax + 1);

readln;
end.
```

В этой программе мы сначала запрашиваем у пользователя сумму налога, которую сохраняем в переменной `tax`. Затем мы округляем это число до ближайшего целого числа с помощью функции `round()`.

Далее мы проверяем дробную часть числа с помощью функции `frac()`. Если дробная часть меньше 0,5, то мы выводим на экран округленную сумму налога. Если же дробная часть больше или равна 0,5, то мы выводим на экран округленную сумму налога, увеличенную на 1.

Надеюсь, моя помощь была полезной!
0
·
Хороший ответ
4 мая 2023 18:33
Остались вопросы?
Найти нужный