Ответы на вопрос:
На pascal abc net program test; type realarray = array of real; var step: real; a: realarray; i,n,s1,s2,s3,s4: integer; begin write('введите количество членов последовательности: '); readln(n); step: =1/n; setlength(a,n); a[0]: =0; for i: =1 to n-1 do a[i]: =a[i-1]+step; for i: =0 to n-1 do begin if a[i]< 0.25 then s1: =s1+1; if (a[i]> =0.25) and (a[i]< 0.5) then s2: =s2+1; if (a[i]> =0.5) and (a[i]< 0.75) then s3: =s3+1; if a[i]> =0.75 then s4: =s4+1; end; writeln('на промежутке [0,0.25) - ',s1); writeln('на промежутке [0.25,0.5) - ',s2); writeln('на промежутке [0.5,0.75) - ',s3); writeln('на промежутке [0.75,1) - ',s4); end.
Популярно: Информатика
-
VikaFragran07.05.2021 15:55
-
Kirka311814.03.2023 13:50
-
Aly600008.01.2021 13:38
-
nikgali12.01.2022 23:11
-
zemdy92628.02.2021 19:52
-
baseke201818.11.2022 00:53
-
NurseRedheart16.05.2022 04:52
-
LanaStreet05.10.2021 22:50
-
husanov18p06h9l02.08.2020 16:19
-
DashaP200602.02.2022 10:11