Функциональные клавиши - F1
Служебные клавиши - Shift
Алфавитно-цифровые - !1
Дополнительная цифровая клавиатура - 1 end
Клавиши управления курсором - Еnd
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)
else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)
else Write('+',c,' = ',a+b+c);
WriteLn;
if b<0 then Write(a,'*(',b,')')
else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)
else Write('*',c,' = ',a*b*c);
WriteLn;
if b<0 then Write('(',a,b)
else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)
else Write('+',c,')/3 = ',(a+b+c)/3);
End.
1. Для хранения цвета одного пикселя монохромного изображения требуется log(2)2=1 бит.
Объем изображения = 384*256*1 бит = 384*256/8 байт = 48*256/1024 Кбайт = 12 Кбайт.
2. Для хранения цвета одного пикселя изображения, в палитре которого 8 цветов, требуется log(8)2=3 бита.
Объем изображения = 768*512*3 бит = 768*512*3/(8*1024) Кбайт = 144 Кбайта.
<span><span><em>function proverka(i :integer):boolean;
</em>
<em>begin
if i mod 2=0 then
</em>
<em>proverka:=true
</em>
<em>else
</em>
<em>proverka:=false;
</em>
<em>end;</em></span></span>
1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)