1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
Переведем числа в десятичную систему:
![1*2^{8}+ 1*2^{7}+1* 2^{6}+1* 2^{5}+1* 2^{4}+0* 2^{3}+1*2^{2}+0*2^{1}+1*2^{0}](https://tex.z-dn.net/?f=1%2A2%5E%7B8%7D%2B++1%2A2%5E%7B7%7D%2B1%2A++2%5E%7B6%7D%2B1%2A++2%5E%7B5%7D%2B1%2A+2%5E%7B4%7D%2B0%2A++2%5E%7B3%7D%2B1%2A2%5E%7B2%7D%2B0%2A2%5E%7B1%7D%2B1%2A2%5E%7B0%7D)
= 501
(F=15)
![1F7_{16} =1*16^{2}+15*16^{1}+7*16^{0}=503](https://tex.z-dn.net/?f=1F7_%7B16%7D+%3D1%2A16%5E%7B2%7D%2B15%2A16%5E%7B1%7D%2B7%2A16%5E%7B0%7D%3D503+)
Отсюда К=502
Переведем в троичную
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,h,b):=(-0.1,0.02,0.1);
var y:real->real:=t->t<=0 ?
Sqr(Sin(9*t-3))+0.7*t :
5*Cos(25*t+0.37)**3-5*t*t;
var x:=a;
while x<=b+h/2 do begin
Writeln(x:5:2,y(x):15:10);
x+=h
end
end.
<u>Пример</u>
-0.10 0.4030222897
-0.08 0.2428711009
-0.06 0.1085059147
-0.04 0.0189480905
-0.02 -0.0125256009
0.00 4.0520544419
0.02 1.3385985058
0.04 0.0316707402
0.06 -0.1460479966
0.08 -1.8734753767
0.10 -4.5200806881
<u>2. Более "традиционное" решение</u>
const
a=-0.1;
h=0.02;
b=0.1;
var
x,y:real;
begin
x:=a;
while x<=b+h/2 do begin
if x<=0 then
y:=Sqr(Sin(9*x-3))+0.7*x
else
y:=5*(Cos(25*x+0.37))*Sqr(Cos(25*x+0.37))-5*x*x;
Writeln(x:5:2,y:15:10);
x+=h
end
end.