А конечно!!! Звуковая карта не такая уж и легкая схема!!
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>
На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.
var
x,F:real;
begin
x:=-3;
while x<4.01 do begin
if x<-1 then F:=x+3
else F:=0.5*x*x;
Writeln('x=',x:4:1,', F=',F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000
<span>Var
a,i,n,s:integer;
function q (a:integer):integer;
var h,n:integer;
begin
n:=a;
h:=0;
q:=0;
while n>0 do
begin
n:=n div 10;
h:=h+1;
end;
if h = 5 then
begin
n:=a div 10000;
if n=3 then
if a mod 2 = 0 then
q:=1;
end ;
end;
begin
readln(a);
i:=a;
while q(i)<>1 do
begin
writeln('Error');
readln(a);
i:=a;
q(i);
end;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);</span><span> end.</span>