В двух столбцах (например, A и B) вводите показатели, в третьем (например, С) вычисляете разницу. Нужное количество можно вычислить с помощью функции СЧЁТЕСЛИ.
Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
if pos(s[i],p)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Hi, guys!
k = 2
Пусть х находится в ячейке А1, тогда формула должна иметь вид:
=2*(COS(2*ПИ()*A1))^2-3*SIN(3*ПИ()*A1)