Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.
1. 3КБ = 3*1024 = 3072 байт
3КБ = 3*1024*8 = 24576 бит
2. <span>8192 бит </span>= <span>8192/8 = 1024 бай</span>т
8192 бит = <span>8192/8/1024 = 1 КБ
3. </span><span>3072 МБ = </span>3072/1024 = 3 ГБ
<span>3072 </span>МБ = 3072*1024 = 3145728 КБ
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b
245-245+245
vсообщение о видах персональных компьютерах и их использование