011011000111010100
101100010011110010
011111100010011101
1)не знаю
2)до нескольких терабайт
3)700 Мб
4)4,7Гб
5)До десятков гигабайт
6)25гб (однослойный ),50гб (двухслойный)
var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
Var d,s:real;
i:integer;
begin
for i:= 1 to 20 do writeln(i,'дюйм = ',i*2.54)
<span>end.</span>