Ответ 9
Оно кратно 3, однозначное и нечетное
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
A10=1*10^2+4*10+3+5*10^(-1)+1*10^(-2)+1*10^(-3)
A16=1*16^2+10*16+3+5*16^(-1)+12*16^(-2)+1*16^(-3)
2019=1024+512+256+128+64+32+2+1=
=2^10+2^9+2^8+2^7+2^6+2^5+2^1+2^0
ответ 8 файлов
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>