2. получено сообщение, информационный объем которого = 32 бита. чему равен объем информации в байтах? 2. количество цветов, воспроизводимых на экране сотового телефона = 1024, разрешение экрана 128*64. минимальный объем видеопамяти = … кбайт?
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrInteger(ReadlnInteger); Println(a.Max-a.Min,a.Where(p->p<=30).Count); end.
2. Школьный вариант в стиле "ТурбоПаскаль 1983г."
var n,i,a,k,max,min:integer; begin Readln(n); max:=0; min:=301; k:=0; for i:=1 to n do begin Read(a); if a>max then max:=a; if a<min then min:=a; if a<=30 then k:=k+1 end; Writeln(max-min,' ',k) end.
1. Разобьем условие на части, чтобы было нагляднее. в числе меньше восьми цифр "И" [число кратно 3 "ИЛИ" (число содержит 2 "И" число кратно 5)]
2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием. Варианты 4) и 6) содержат 8 цифр и отбрасываются.
3. число кратно 3 "ИЛИ" число содержит 2 "И" число кратно 5 Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем. Кратны трем числа 1) 69 2) 12 и 7) 15.
4. Остались числа 3) 25, 5) 22 и 8) 55. Проверяем их на условие число содержит 2 "И" число кратно 5 Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.
Задача 2
128 * 64 * 1024 = 8388608 бит
8388608 / 8 / 1024 = 1024 кбайта