1)не знаю
2)до нескольких терабайт
3)700 Мб
4)4,7Гб
5)До десятков гигабайт
6)25гб (однослойный ),50гб (двухслойный)
1) x=x+x и так 2 раза => x= 2*(5+5)=10*2=20
2)y=y*4 => y=5*4=20
Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>