Сколько секунд потребуется модему, сообщения со скоростью 28800 бит/с, чтобы передать 100 страниц текста в 30 строк по 60 символов каждая, при условии что каждый символ кодируется одним байтом?
1) program chik; var a:array[1..100]of integer; i,s:integer; begin for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 5=0)then s:=s+a[i]; end; write(s); end. 2) program chik2; var a:array[1..100]of integer; i,s:integer; begin s:=0; for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 2=1)then s:=s+1]; end; write(s); end. 3) program chik3; var a:array[1..1000]of integer; i:integer; begin for i:=1 to 9 do begin read(a[i]); end; for i:=1 to 9 do begin if(a[i] mod 2=0)then write(a[i],' '); end; end.
1) program chik; var a:array[1..100]of integer; i,s:integer; begin for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 5=0)then s:=s+a[i]; end; write(s); end. 2) program chik2; var a:array[1..100]of integer; i,s:integer; begin s:=0; for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 2=1)then s:=s+1]; end; write(s); end. 3) program chik3; var a:array[1..1000]of integer; i:integer; begin for i:=1 to 9 do begin read(a[i]); end; for i:=1 to 9 do begin if(a[i] mod 2=0)then write(a[i],' '); end; end.
объем информации= 60*30*100 = 180000байт = 1440000 бит
время -это объем разделить на скорость -то есть 1440000/28800= 50с