Ответ:
16 бит на 1 символ
Объяснение:
1). 256 Кбайт = 262144 байт = 2097152 бит
2). 128*32*32 = 131072 символов.
3). 2097152 / 131072 = 16 бит на 1 символ
Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.
1. Объект: радуга
Модель: рисунок радуги
Свойства: семицветная.
2. Объект: самолет
Модель: макет самолета
Свойства: одинаковая форма, цвет.
3. Объект: яблоко
Модель: муляж яблока
Свойства: одинаковая форма, цвет.
Вот.
program pr;
var s,k,a,i,sr:integer;
begin
s:=0;
k:=100;
a:=100;
for i:=a downto 11 do begin
s:=s+a;
k:=k-1;
a:=a-1;
end;
sr:=sqr(s);
writeln(sr,' ',k);
end.
Просто выражение, записанное на языке PascalABC:
Power(2,-x)-Cos(x)+Sin(2*x*y)
Программа для вычисления:
Var
x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('2^',-x,' -Cos(',x,') +Sin(',2*x*y,') = ',Power(2,-x)-Cos(x)+Sin(2*x*y))
End.