Для записи текста использовался 64- символьный алфавит. какое количество информации в байтах содержат 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Program massa; var m, a: real; begin writeln('введите массу.'); readln(m); writeln('введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end. , немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
latoyan817
16.12.2021
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! function subarray(subarr,arr: array of integer): integer; begin var ns: =subarr.length; var p1: =arr.length-ns; // поиск на [0..p1] var ii: =arr[: p1+1].indexesof(t-> t=subarr[0]); result: =-1; foreach var i in ii do if arr[i: i+ns].zip(subarr,(a,b)-> a=b).all(t-> t) then begin result: =i; exit end end; begin var a: =readarrinteger('введите элементы: ',readinteger('n=')); var b: =readarrinteger('введите элементы: ',readinteger('n=')); var p: integer; if a.length< b.length then begin p: =subarray(a,b); if p> -1 then writeln('первый массив является подмассивом с позиции ',p+1) else writeln('подмассив не обнаружен') end else begin p: =subarray(b,a); if p> -1 then writeln('второй массив является подмассивом с позиции ',p+1) else writeln('подмассив не обнаружен') end end. примеры n= 4 введите элементы: 1 2 3 4 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 первый массив является подмассивом с позиции 7 n= 4 введите элементы: 1 2 3 5 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 подмассив не обнаружен
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Для записи текста использовался 64- символьный алфавит. какое количество информации в байтах содержат 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?