Написать программу на паскале: для х=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.2016 begin   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)

ответ:

объяснение:

program arrayof2;

const

    arraysize=10; {устанавливаем размер массива}

    maxrandom=5; {максимальное случайное число для заполнения массива}

var

    x : array[1..arraysize] of integer;

    i, sum2 : integer;

begin

    sum2: =0;

    for i: =1 to arraysize do x[i]: =random(maxrandom); {в цикле заполняем массив случайными числами от 1 до заданной maxrandom}

    for i: =1 to arraysize do writeln(x[i]); {выводим на печать массив, который получился (в это не требовалось, можно убрать эту строку)}

    for i: =1 to arraysize do if x[i]=2 then sum2: =sum2+1; {считаем двойки}

    if

        sum2 > 0

    then

        writeln('the quantity of 2 in this array is: ',sum2)

    else

        writeln('no any 2 in this array was found')

end.