1)вычислить длину окружности и площадь круга одного и того же заданного радиуса r. pascal (желательно с блок-схемой) 2)найти сумму членов арифметической прогрессии, если известны её первый член,знаменатель и число членов прогрессии pascal (желательно с блок-схемой). 3)даны целые числа m, n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны,то заменить числа нулями pascal (желательно с блок-схемой). 4)определить, является ли треугольник со сторонами a,b,c равнобедренным pascal (желательно с блок-схемой). 5)подсчитать количество отрицательных чисел среди чисел a,b,c pascal (желательно с блок-схемой). 6)одноклеточная амёба каждые 3 часа делится на 2 клетки. определить, сколько амёб будет через 3,6,9,12, 24 часа pascal (желательно с блок-схемой). 7) дан массив натуральных чисел. найти сумму элементов, кратных данному k pascal (желательно с блок-схемой)

191

311

Посмотреть ответы 2

Ответы на вопрос:

hplss

Информатика

4,5(94 оценок)

№1 var r: integer; begin writeln('введите радиус'); read(r); writeln('длина окружности = ',2*pi*r); writeln('площадь круга = ',pi*sqr(r)); end. №2 var a,d,n: integer; begin writeln('введите первый член, знаменатель, число членов'); read(a,d,n); writeln('cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); end. №3 var m,n: integer; begin writeln('введите m и n'); read(m,n); if m=n then begin m: =0; n: =0; end; if (m> n) then n: =m else if n> m then m: =n; end. №4 var a,b,c: integer; begin writeln('введите стороны a,b,c'); read(a,b,c); if (a=b) or (b=c) or (c=a) then writeln('треугольник равнобедренный') else writeln('треугольник неравнобедренный'); end. №5 var a,b,c: integer; begin a: =0; c: =0; repeat writeln('введите число'); read(b); if b< 0 then a: =a+1; c: =c+1; until c=3; writeln('количество отрицательных = ',a); end. №6 var a,c: integer; b: real; begin writeln('введите количество часов'); read(a); c: =a div 3; b: =power(2, c); writeln(b); end. №7 const n=10; var a: array [1..10] of integer; i,k,s: integer; begin writeln('введите k'); read(k); writeln('введите элементы массива'); for i: =1 to n do begin read(a[i]); if a[i] mod k =0 then s: =s+a[i]; end; writeln(s); end.

RoxXL

Информатика

4,7(40 оценок)

Изначально смотрим что у нас не еденицы измерения, скорость передачи у нас в битах в секунду, а размер файла в килобайтах. переводим килобайты в байты (1 килобайт=1024 байтам, 1 байт = 8 битов)следовательно 2000 килобайт * 1024 = 2048000 байт * 8= 16384000 бит. скорость передачи данных = объем данных / на время затраченное для передаци этих данных. следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.16384000бит / 1024000 кбит/с = 16 сек. что собственно и является ответом.