Имеется текст, объем которого 40 килобайт. На каждой странице 40 строк по 64 символа. Текст закодирован в кодировке Windows (8 бит на 1 символ). Определить количество страниц в тексте.
На каждой странице - 40*64=2560 символов; каждый символ кодируется 8 битами, что равно 1 байту; файл весит 40 килобайт, умножаем на 1024 - получаем 40960 байт.
Следовательно, в документе 40960 символов; значит, в документе страниц.
DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Var x,y,z:integer; {описание переменных и их типа} begin writeln ('введи два числа'); {Вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x<0 then {проверка условия.} if y>x then z:=y {если условие истинно, то мы ищем большее из х и у. если у больше, то присваиваем z значение у} else z:=x {если же больше х, то присваиваем его значение} else {если условие ложно} if y>x then z:=x {то мы ищем меньшее из х и у. если у больше, то присваиваем z значение х} else z:=y; {если же больше х, то присваиваем значение у} writeln (z); {вывод результата на экран} end. {конец программы}
На каждой странице - 40*64=2560 символов; каждый символ кодируется 8 битами, что равно 1 байту; файл весит 40 килобайт, умножаем на 1024 - получаем 40960 байт.
Следовательно, в документе 40960 символов; значит, в документе
страниц.
ответ: 16.