№1)
16 бит = 16 / 8 байт = 2 байта
64 байта = 64 * 8 байта = 512 бит
1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит
2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб
2 Гб = 1024 * 2 Мб = 2048 Мб
№2)
200 байт ≈ 0,1953 Кб
0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб
1536 байт = 1,5 Кб
1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб
3 байта = 3*8 бит = 24 бит
24 бит = 24 бит => 3 байта = 24 бита
1000 бит = 125 байт = 0,122 Кб
0,122 Кб < 1 Кб => 1000 бит < 1 Кб
№3)
1) 2 Мб = 2048 Кб
2048 / 100 ≈ 20 файлов можно разместить на дискете
2) 4 Мб = 4096 Кб
4096 / 100 ≈ 40 файлов можно разместить на дискете
1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.
Думаю, что 3. Не знаю почему