Томенде берилген соилемдерге 1 жане 2 деген сандарды колданылу компьютер курылгылары

Число повторений цикла = целая часть [(3-0.1)/0.1]+1 = 30

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017

begin
  for var i:=1 to 30 do begin
    var x:=0.1*(i-1)+0.1; var y:=1-sin(x)/(1-ln(x+0.1));
    Writeln(x:3:1,y:15:5)
    end
end.

Результат
0.1        0.96174
0.2        0.90986
0.3        0.84579
0.4        0.77000
0.5        0.68267
0.6        0.58380
0.7        0.47331
0.8        0.35102
0.9        0.21667
1.0        0.06988
1.1       -0.08992
1.2       -0.26355
1.3       -0.45217
1.4       -0.65751
1.5       -0.88208
1.6       -1.12960
1.7       -1.40571
1.8       -1.71913
1.9       -2.08389
2.0       -2.52355
2.1       -3.08055
2.2       -3.83866
2.3       -4.98810
2.4       -7.06916
2.5      -12.45227
2.6      -75.39064
2.7       15.42904
2.8        6.17670
2.9        3.42616
3.0        2.07396

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.