2 в 17 бит - 2^4(степени) Кб
2 в 13 бит - 2^0 Кб - 0
2 в 16 бит - 2^3 Кб
2 в 15 бит - 2^2 Кб
2 в 14 бит - 2^1 Кб - 2 Кб
1/4 Кб - 2048 бит
2 в 28 бит - 2^5 Мб
в 1/2 Кб - 512 или 2^9 байт
в 4096 бит - 1/2 Кб
в 3 Гб - 3072 Мб
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.
Program Task;
Var a, b: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2);
ReadLn;
End.
<span>все просто, что бы определить какой цифрой закончится число, надо взять последнюю цифру этого числа и возвести ее в квадрат. Затем, если число двузначное, то ответом будет послденяя цифра поученного числа или если число однозначное, то оно и будет ответом.
<span>var a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>write(sqr(a) mod 10); </span>
<span>end.</span></span>
Скореи всего нет я пробывал нет.