Вэлектронной таблице значение формулы =cp3haч(a3: d3) равно 5. чему равно значение формулы =сумм(аз: сз), если значение ячейки d3 равно 6? решение нужно
1. pascalabc.net 3.3 const n=18; begin var a: =arrrandom(n,0,100); for var i: =0 to n-1 do begin write(a[i],' '); if (i+1) mod 6=0 then writeln; end; writeln('среднее арифметическое = ',a.average); writeln('max = a[',a.indexmax,'] = ',a.max); writeln('min = a[',a.indexmin,'] = ',a.min); end. 2. const n=18; var a: array[1..n] of integer; x,max,min,imax,imin,i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(101); write(a[i],' '); if i mod 6=0 then writeln; end; x: =0; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =1 to n do begin x: =x+a[i]; if a[i]> max then begin max: =a[i]; imax: =i; end; if a[i]< min then begin min: =a[i]; imin: =i; end; end; writeln('среднее арифметическое = ',x/n: 6: 3); writeln('max = a[',imax,'] = ',max); writeln('min = a[',imin,'] = ',min); end. пример: 55 32 51 53 6 8294 27 43 61 56 2063 6 92 32 14 84среднее арифметическое = 48.389max = a[7] = 94min = a[5] = 6
Александр734
03.10.2022
Var i,j,k,m: integer; s: string; begin k: =0; for i: =1 to 1000000 do begin s: =inttostr(i); m: =0; for j: =1 to (length(s) div 2) do if s[j]< > s[length(s)-j+1] then m: =1; if m=0 then begin inc(k); continue; end; m: =pos('0',s); if m> 0 then begin inc(k); continue; end; m: =1; for j: =2 to round(sqrt(i)) do if i mod j = 0 then begin m: =0; break; end; if m=1 then inc(k); end; k: =1000000-k; writeln('осталось чисел: ',k); end. осталось чисел: 544011