Жорсткий диск,відео карта,процесор,оперативна память,блок живлення.
1. 10 ГБ = 10*2^10 МБ = 10*2^20 КБ = 10*2^30 Б = 10*2^33 байт
2. 5 ГБ = 5*2^10 МБ = 5*2^20 КБ
1 байт = 8бит
1 КБ = 1024(2^10) байт
с повышением приставки нужно умножать на 1024.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.