Протабулировать функцию y = sinx на промежутке [0; 3,1], с шагом h = 0,1 и вычислить среднее арифметическое

uses crt;
var x,y,s,s1,h,xk:real;n:integer;
begin
clrscr;
x:=0; xk:=3.1; h:=0.1;
s:=0; n:=0;
while x<=xk+h/2 do
begin
y:=sin(x);
writeln(x:3:1, y:6:2);
if (y>0.1) and (y<0.6) then
begin s:=s+y; n:=n+1 end;
x:=x+h;
end;
if n>0 then
begin s1:=s/n; writeln('Середнее=',s1) end
else writeln('Таких значений нет n=0');
readln
end.

Program Chisl;
 
var
  {Opredelim peremennye dlya hraneniya dannyh}
  N,counter:Integer;i:Byte;
begin
 
  {Vvedem N}
  Write('Vvedite N ne bolee 7 simvolov ');Readln(N);
 
  {Prisvoim schetchiku znachenie 1}
  counter:=1;
 
  {Zapustim cicle ot 1 do 7}
  for i:=1 to 7 do
    begin
 
      {Primenin celochislennoe delenie k vvedennomu chislu}
      N:=N div 10;
 
      {Esli ostatok est to uvelichim schetchik inache zavershim cicle}
      if (N > 0 ) then
        counter := counter+1;
        Writeln('count = ',counter)
      else
        writeln('4islo bolee semi znakov');
           Break;
    end;
 
  Readln;
end.

--------
  for i:=1 to 7 do
    begin
 
      {Primenin celochislennoe delenie k vvedennomu chislu}
      N:=N div 10;
 
      {Esli ostatok est to uvelichim schetchik inache zavershim cicle}
      if (N > 0 ) then
        counter := counter+1;
        Writeln('count = ',counter);
      else
        writeln('4islo bolee semi znakov');
        Break;
    end;
  Readln;
end.
------

--------
  for i:=1 to 7 do
    begin
 
      {Primenin celochislennoe delenie k vvedennomu chislu}
      N:=N div 10;
 
      {Esli ostatok est to uvelichim schetchik inache zavershim cicle}
      if (N > 0 ) then begin
        counter := counter+1;
        Writeln('count = ',counter); end
      else
        writeln('4islo bolee semi znakov');
           Break;
    end;
 
  Readln;
end.
------

uses crt;
var
  n: LongInt;
  k: Integer;
begin
  repeat
    ClrScr;
    Write('Введите число (не более 7 разрядов) ');
    Readln(n);
  until (n>0) and (n<10000000);
  k:=1;
  while n div 10>0 do
  begin
    n:=n div 10;
    Inc(k);
  end;
  Writeln(k);
  Readkey;
end.

(n>0) and (n<10000000)

Program Chisl;
 
var
  {Opredelim peremennye dlya hraneniya dannyh}
  N: LongInt;
  counter:Integer;i:Byte;
begin
 
  {Vvedem N}
  Write('Vvedite N ne bolee 7 simvolov ');Readln(N);
 
  {Prisvoim schetchiku znachenie 1}
  counter:=1;
 
  {Zapustim cicle ot 1 do 7}
  for i:=1 to 7 do
    begin
 
      {Primenin celochislennoe delenie k vvedennomu chislu}
      N:=N div 10;
 
      {Esli ostatok est to uvelichim schetchik inache zavershim cicle}
      if (N > 0 ) then counter := counter+1
      else Break;
    end;
    if N>0 then  writeln('4islo bolee semi znakov')
    else Writeln('count = ', counter);
  Readln;
end.