Объем текстового файла 640 kb. файл содержит книгу, которая набрана в среднем по 32 строки на странице и по 64 символа в строке. сколько страниц в книге при 8 битном кодировании? , . с решением.

Пусть х - количество страниц в книге (по формуле j=k*i) k-количество символов, i-вес символа информационный объем книги   8  бит * 32*64*х   = 16384х   бит =2048х байт = 2х кбайт 640 кбайт = 2х кбайт х=640/2=320 ответ 320 страницкак-то так)

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

а если число

 

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

 

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

 

end.