Получено сообщение, информационный объем которого равен 4096 бит. чему равен информационный объем этого сообщения в килобайтах?
210
407
Ответы на вопрос:
Var i,k,p,r,m,n: integer; begin write('размер клетки k = '); readln(k); write('радиус круга r = '); readln(r); n: =r div k; if ((r mod k)> 0) then inc(n); m: =0; p: =n-1; for i: =1 to n-1 do begin if ceil(sqrt(r*r-k*i*k*i))< =p*k then begin p: =p-1; m: =m+n-i; end; end; m: =4*n*n-4*m; writeln(m); end.размер клетки k = 1 радиус круга r = 5 88размер клетки k = 3 радиус круга r = 7 32размер клетки k = 4 радиус круга r = 5 12
Популярно: Информатика
-
МияV20.09.2021 15:44
-
Masuki26.07.2022 00:27
-
hromovaysoydwfz22.02.2021 04:33
-
Topskiy1320.10.2022 22:43
-
Laurahsnbrg12.02.2023 19:33
-
azs194karelin30.11.2020 13:20
-
SherlockAlya20.04.2020 21:43
-
Amid0511.05.2020 17:33
-
Богдансупе2319.06.2022 16:50
-
sunnyAkhhhh10.01.2020 09:16