Написать программу вычисления подоходного налога по формулам: а) при сумме менее 2500 рублей налог не взимается, б) от 2500 до 10000 руб, берется 13% от суммы, в) при сумме более 10000 руб берется 1300 рублей плюс 15% от сум...
Написать программу вычисления подоходного налога по формулам:
а) при сумме менее 2500 рублей налог не взимается,
б) от 2500 до 10000 руб, берется 13% от суммы,
в) при сумме более 10000 руб берется 1300 рублей плюс 15% от суммы превышающей 10000 рублей.
Указание: программу проверить при суммах 1000, 8000 и 12000 руб. Ответы должны быть соответственно 0, 1040 и 1600 руб. На паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram name;//Имя программы
uses crt;
var
a:integer;
BEGIN write('Введите сумму: '); readln(a);
if a < 2500
then write('Подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');
if (a <= 10000) and (a >= 2500)
then write('Подоходный налог составляет:', a*0.13 ,' рублей от суммы ',a, ' рублей');
if a > 10000
then write('Подоходный налог составляет:', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей');
ReadKey;
end.
Не нашли ответ?
Похожие вопросы