V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на символ.
N = 2^i, где:
N - палитра.
Дано:
K = 64*64.
N = 128 цветов.
Найти: V(кбайт).
N = 2^i.
128 = 2^i.
I = 7 бит.
V = K * I = (64 * 64 * 7)/2^13 = (2^6 * 2^6 * 7)/2^13 = (2^12 * 7)/2^13 = 7/2 = 3,5 кбайт.
Ответ: 3,5 кбайт.
Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.
Var s,i,a:integer; //объявляем необходимые переменные
begin
s:=0; //изначально сумма равна 0
write('Введите 10 чисел через enter '); //запрос 10-ти чисел
for i:=1 to 10 do begin //с помощью цикла вводим числа
readln(a);
s:=s+a; // вычисляем сумму(смысл цикла уж не буду расписывать)
end;
write('Сумма 10-ти чисел = ',s); //выводим на экран искомое значение
<span>end.</span>
Эмммм.....
prorgam psck;
begin
writeln('Информационное сообщение');
end.
Var s:string;
a:array['a'..'z'] of integer;
i:integer; c:char;
begin
writeln('Введите строку:');
readln(s);
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then a[s[i]]:=a[s[i]]+1;
for c:='a' to 'z' do
if a[c]>0 then writeln(c,' ',a[c]);
end.
Программа:
Введите строку:
fhb5kbfыshfm.
b 2
f 3
h 2
k 1
m 1
s 1