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.<span>
</span>
<span>2^24
24-глубина цвета.
Т.е один цвет кодируется 24 битами=3 байтами.</span>
Ответ на вопрос:кнопка закрыть,свернуть,строка заголовка
Var s,p,a,b: integer;
begin
readln(s,p);
a:=round((s+sqrt(s*s-4*p))/2);
b:=s-a;
writeln(a,' ',b);
end.
Пример:
73 1200
<span>48 25</span>