Синформатикой ( , с блок схемами и самой программой) 1.предположим, фирма заработала какую-то сумму денег- эту сумму запросите у пользователя. по законодательству из этой суммы следует перечислить в налог 23%. далее 39% идет на зарплату. составьте программу, которая рассчитает, какую сумму получит пользователь после выплаты всех налогов и зарплаты. 2. составьте программу, которая позволит для любых заданных дробных чисел ( их нужно запросить у пользователя) найти их целые части, сумму этих целых частей. 3. составьте программу, которая по заданным сторонам треугольника( их нужно запросить у пользователя) определяет его площадь. напомню, что площадь можно вычислить по формуле герона s= квадратный корень от (p*(p-a)*(p-b)*(p- где p- полупериметр, a,b,c- стороны треугольника, которые надо запросить. результат выведите с двумя знаками после запятой.

{1} var n: integer; begin write ('введите заработанную сумму: '); readln (n); write ('вы получите: ', (n*0.77)*0.61) end. {2} var a: array of double; n, i: byte; sum: longint; begin write ('введите кол-во дробных чисел: '); readln (n); setlength (a, n);     for i: =0 to n-1 do     begin     write ('введите ', i+1, ' число: ');     readln (a[i]);     end;   for i: =0 to n-1 do   begin   writeln ('целая часть ', i+1, ' числа: ', trunc(a[i]));   inc (sum, trunc(a[i]));   end; write ('сумма целых частей: ', sum); end. {3} var a, b, c, p: double; begin write ('введите стороны треугольника: '); readln (a, b, c);   if (a> =(b+c)) or (b> =(a+c))  or (c> =(b+a))  or (a< =0) or (b< =0) or (c< =0) then   write ('такой треугольник не существует')   else begin     p: =(a+b+c)/2;     write ('его s = ', sqrt (p*(p-a)*(p-b)*(p-c)): 7: 2, ' ед^2' );   end; end.

1. 29: 6=4, остаток 5, 4: 6=0, остаток 4, итого 45(в шестеричной системе). 29: 8=3, остаток 5, 3: 8=0, остаток 3, итого 35(в восьмеричной системе). 29: 12=2, остаток 5, 2: 12=0, остаток 2, итого 25 (в двенадцатеричной). ответ: 6,8,12 2. 129(10)=1004(q) 129(10)=1*q^3+0*q^2+0*q^1+4*q^0=q^3+4. q=5 ответ: система счисления числа 1004, это 5.