X+x+752 = 1552 x = 800/2 = 400 страниц с рисунками y = 1152 страниц с текстом итого символов (а значит и байт) в виде текста = 1152*640 = 737280 = 720 кб на рисунки остается 30*1024-720 = 30000 кб и страниц с ними 400, значит на каждый рисунок приходится по 30000 / 400 = 75кб = 76800б = 614400 бит Для кодирования восьмицветного изображения требуются 3 бита памяти на один пиксель. итого в рисунке 204800 пикселей. какой размер? любой, где x*y <= 204800) квадратный корень - число нецелое. Если квадратные - то максимальный размер 452 х 452 пикселей
Var n,p: Longint; i,k,x,sum,min,max,max2,kr3: Integer; Begin readln(n); p:=n; while p>0 do //находим число цифр в числе begin p:=p div 10; k:=k+1; end; p:=n; min:=9; for i:=1 to k do begin x:=p mod 10; if x mod 2=0 then begin sum:=sum+x; if x>max2 then max2:=x; end; if x<min then min:=x; if x>max then max:=x; if (x mod 3=0) and (x>0) then kr3:=kr3+1; p:=p div 10; end; writeln('Сумма четных цифр: ',sum); writeln('Минимальная цифра: ',min); writeln('Количество кратных трем: ',kr3); writeln('Разность максимальной и минимальной: ',max-min); writeln('Максимальная четная цифра: ',max2); end.
p - вс переменная. В нее заносим значение n i - счетчик цикла k - количество цифр в числе x - текущая цифра числа sum - сумма четных min - минимальная цифра max - максимальная цифра max2 - максимальная четная цифра kr3 - количество цифр, кратных 3:
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
