Вычислить сумму льгот по налогу на доход, если известны: сумма вычеты на работника и каждого иждивенца, количество иждивенцев, сумма дохода, количество месяцев, за которые получен доход, категория льгот (0 или 1 на работника вычет 300 руб. в месяц, на иждивенца — 400 руб. в месяц. если доход работника до 15000, предоставляется льгота в 2-кратном размере, до 30000 — 1-кратный, больше 30000 — льгот нет. учесть, что для работников, имеющих первую категорию льготы, вычеты на иждивенцев удваиваются. в excel
Ответы
Program z; var a: array[1..20] of integer; i,mini,maxi,max,min: integer; begin randomize; for i: =1 to 20 do begin a[i]: =random(-50,50); write(a[i],' '); {вывод массива} end; writeln; {переход на новую строку после вывода массива} max: =a[1]; maxi: =1; min: =a[1]; mini: =1; for i: =2 to 20 do begin if a[i]> max then begin max: =a[i]; maxi: =i; end; if a[i]< min then begin min: =a[i]; mini: =i; end; end; writeln('max=',max,' max index=',maxi); writeln('min=',min,' min index=',mini); end.
Var max,min,i: integer; a: array [1..20] of integer; b: boolean; begin for i: =1 to 20 do begin b: =random(1); if b then do a[i]: =-1*random(50) else a[i]: =random(50); end; max: =a[1]; min: =a[1]; for i: =2 to 20 do begin if max< a[i] then max: =a[i]; if min> a[i] then min: =a[i]; end; for i: =1 to 20 do begin if max=a[i] then writeln('индекс максимального'i); if min=a[i] then writeln('индекс минимального'i); end; writeln('максимальное'max); writeln('минимальное'min); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что такое div и mod в информатике и как их использовать в программе кумир?
Автор: Ubuleeva826
Написать код в с++ (вывести на экран n простых чисел)
Автор: Матфеопуло1006
Найдите значение x в неравенстве 634 8
Автор: Евгеньевич-Куликов1614
сделать УМОЛЯЮ я полный ноль в екселе
Автор: corneewa20096
Укажите верный ответ, если переменная x в два раза меньше переменной y
Автор: Iiexota280274
Акпараттык олшем бырлыгы не ушин керек?
Автор: Самохвалова-Геннадьевна
Верно записано имя файла 6кл@ 6кл? 6кл& 6кл! далее> > >
Автор: italiankarest