Помогите написать программу на Паскале:
Для х=3, 11, 19, 27, … (всего 73 значения х) вычислить и напечатать y=sinx+1

Спасибо огромное)

Можете помочь с еще одной задачей?

var

i, x:integer;

begin

x:=3;

for i:=1 to 73 do

begin

writeln(sin(x)+1);

x:=x+8;

end;

end.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  SeqGen(73,3,x->x+8).Tabulate(x->sin(x)+1).Println(NewLine)end.Результат(3,1.14112000805987)(11,9.79344929652459E-06)(19,1.14987720966295)(27,1.9563759284045)(35,0.571817330503849)(43,0.168225257371402)(51,1.67022917584337)(59,1.63673800713914)(67,0.144480021024678)(75,0.61221836459057)(83,1.96836446110019)(91,1.10598751175116)(99,0.000793165813646302)(107,1.18478174456067)(115,1.94543533402477)(123,0.540096509310409)(131,0.1883966128633)(139,1.69608013122474)(147,1.60904402188329)(155,0.126688017225352)(163,0.645089824155065)(171,1.97659086794357)(179,1.07072216723899)(187,0.00282897660785097)(195,1.21945466799406)(203,1.93330970016696)(211,0.508952146149537)(219,0.209585258506819)(227,1.72105859707063)(235,1.58058664098964)(243,0.109990651143723)(251,0.678406139707496)(259,1.98359318394668)(267,1.03536817725618)(275,0.00611467408027389)(283,1.25385251979023)(291,1.92001422549596)(299,0.47842327838163)(307,0.231764635762553)(315,1.74513326455741)(323,1.55140153386739)(331,0.0944088518029327)(339,0.712125551491514)(347,1.98936263217831)(355,0.999969855646641)(363,0.0106461398305572)(371,1.28793218456003)(379,1.9055655749933)(387,0.448548171885085)(395,0.254906944275786)(403,1.76827395771179)(411,1.52152528208153)(419,0.0799621499383943)(427,0.746205794496806)(435,1.9938919810239)(443,0.96457157182102)(451,0.0164176939717596)(459,1.32165094574031)(467,1.88998185906867)(475,0.419364273092607)(483,0.278983176722363)(491,1.79045167123434)(499,1.49099533350029)(507,0.0666686535173281)(515,0.780604151435442)(523,1.9971755532499)(531,0.929217695142592)(539,0.0234221022497116)(547,1.35496653913623)(555,1.87328261085979)(563,0.390908162054621)(571,0.303963155167414)(579,1.81163860685574)