var x: real;
begin
writeln('Введите число(Кб): ');
readln(x);
writeln(x,' Кб = ',x*1024*8,' бит');
writeln(x,' Кб = ',x*1024,' байт');
writeln(x,' Кб = ',x/1024,' Мб');
end.
в переменную S вводится возраст Саши ,
в переменную М вводится возраст Маши
если S > M тогда
выводим "Саша старше Маши "
иначе
если S < M тогда
выводим "Маша старше Саши"
иначе
выводим "Саша и Маша ровестники"
Так наверно?
Т=5 сек
I=8 бит
Н= 64 кГц
Стерео - х2
V-?
V=T•I•H•2
V=5•8•64000•2=5120000бит/8=640000байт/1024=625 килобайт
Ответ: 625 килобайт.
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);<span>End.</span>
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд