Мы уже писали программу, вычисляющую сумму налога по прогрессивной шкале в зависимости от полученного заработка: 13% на доход до 10 000, 20% на доход от 10 000 до 50 000, 30% на доход выше 50 000. Однако во многих странах, использующих такую шкалу, эта сумма вычисляется более сложным налоговая ставка 30% на доход выше 50 000 означает, что 30% уплачивается не со всей суммы, а лишь с той ее части, которая превосходит 50 000. Аналогично, ставка 20% на доход от 10 000 до 50 000 обязывает уплатить 20% лишь с той части суммы, которая превосходит 10 000, но не превосходит 50 000.
Так, например, с дохода 100 000 придется заплатить такой налог:
30% * (100 000 − 50 000) + 20% * (50 000 − 10 000) + 13% * 10 000 = 15 000 + 8 000 + 1 300 = 24 300
А с дохода 30 000 — такой: 20% * (30 000 − 10 000) + 13% * 10 000 = 4 000 + 1 300 = 5 300
Напишите программу, которая спрашивает у пользователя его доход и высчитывает сумму налога для него по вышеописанным правилам
в питоне
А в 10-ую переводи просто, не отделяя цифр и все!
Б)A=10 F=15 , вот и переводи 1015 в 2-ую систему , методом деления на 2!
const n=15;
var P:array[1..15]of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
begin
read(p[i]);
if(i mod 2=0)and(p[i]<0)then s:=s+p[i];
end;
writeln(s);
end.
2)
program gt;
uses crt,graphabc;
const n=7;
var mac1,mac2,mac3:array[1..15]of real;
i,k1,k2:integer;
begin
k1:=0;k2:=0;
for i:=1 to n do
begin
read(mac1[i]);
if(mac1[i]>0)then begin
Inc(k1);
mac2[k1]:=mac1[i];
end;
if(mac1[i]<0)then begin
Inc(k2);
mac3[k2]:=mac1[i];
end;
end;
for i:=1 to n do
write(mac1[i],' ');
writeln;
for i:=1 to k1 do
write(mac2[i],' ');
writeln;
for i:=1 to k2 do
write(mac3[i],' ');
end.