Пример реализации на Excel.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Сами формулы можно увидеть в строке формул.
Будет 409600......... .......кбайт
1*2^4+0+0+1*2^1+1*2^0=16+2+1=19 -целая часть
0.53125 дробная
число 19.53125
Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.