1) заголовок окна
2) строка меню
3) рабочая область
4)полосы прокрутки
T=I/c*i c=11000Гц i=8бит (низкое качество)
t=1200*1024*8/(11000*8)=131 c
Разумеется ведь компьютеру, для того что бы он работал как мы хотим нужна система своего рода программы которые будут следить за курсором, следить за тем нажата ли кнопка на клавиатуре или нет таких программ очень много, но их нужно ведь где-то хранить вот и пожалуйста для этого и существует внешняя память на ней хранится система, если вам интересно и у вас windows то откройте мой компьютер и зайдите на диск С это обычно главный диск далее найдите папку windows и нажмите на него правой кнопкой мыши выберите свойства и вы увидите сколько весит система
Решил)
Easy
var
s:string;
c:integer;
begin
readln(s);
while pos(' ',s)<>0 do
begin
c:=c+1;
delete(s,pos(' ',s),1);
end;
writeln((c+1)*50,' Tenge');
<span>end.</span>
Var a,b,c,n:integer;
begin
for a:=1 to 7 do
for b:=a+1 to 8 do
for c:=b+1 to 9 do
begin
n:=a*100+b*10+c;
write(n:4)
end;
<span>end.
var
i,j,n:integer;
a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random*2-1;
write(a[i,j]:20:15);
if a[i,j]>=0 then n:=n+1;
end;
writeln;
end;
writeln('Количество неотрицательных: ',n);
<span>end.
var
i,j,sum:integer;
a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
sum:=sum+a[i,j];
write(a[i,j]:4);
end;
writeln('sum=':8,sum);
sum:=0;
end;
<span>end.</span></span></span>
