Решить в паскале : 3 9. найти произведение целых нечетных чисел в промежутке [m, n], где m, n-произвольные вещественные числа(вводятся с клавиатуры). 10. найти все степени числа 2 в промежутке [m, n], где m, n-произвольные целые числа (вводятся с клавиатуры).

206

286

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

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

Georgeo19rus

Информатика

4,8(75 оценок)

Var m,n,p: real; k: integer; begin write('введите через пробел начало и конец интервала: '); read(m,n); p: =1; k: =trunc(m); if (k mod 2)=0 then inc(k); { первое нечетное } n: =int(n); { целочисленный конец интервала } while k< =n do begin p: =p*k; k: =k+2 end; writeln('произведение нечетных на интервале: ',p) end. тестовое решение: введите через пробел начало и конец интервала: -3.8 8.2 произведение нечетных на интервале: 315 var m,n,i,j: integer; p: real; begin write('введите через пробел целочисленные границы интервала: '); read(m,n); for i: =m to n do begin p: =1; if i=0 then writeln('2^0=1') else if i< 0 then begin for j: =-1 downto i do p: =p/2; writeln('2^(',i,')=',p) end else begin for j: =1 to i do p: =p*2; writeln('2^',i,'=',p) end end end. тестовое решение: введите через пробел целочисленные границы интервала: -5 10 2^(-5)=0.03125 2^(-4)=0.0625 2^(-3)=0.125 2^(-2)=0.25 2^(-1)=0.5 2^0=1 2^1=2 2^2=4 2^3=8 2^4=16 2^5=32 2^6=64 2^7=128 2^8=256 2^9=512 2^10=1024

bilainфом

Информатика

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

1) вычислим скорость передачи данных по каналу: 1 минута = 60 секунд. 4000 кбайт / 60 сек * 45 сек = 3000 кбайт. ответ: 3000 кбайт 2) 2 минуты = 120 секунд 5000 кбайт / 120 сек * 48 сек = 2000 кбайт 3)переведем все в байты для удобства 4 кбайт = 4096 байт 1024 бита\сек = 128 байт\сек 4096 / 128 = 32 секунды, это время передачи первого файла 256\8 = 32 байт\сек, переводим бит в байт 32*32 = 1024 байт, размер файла который можно передать за то же время, но со скоростью 256 бит в секунду ответ: 1024 байт.