Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>
1. 1 байт, 1кб, 1мб, 3500кб, 78мб, 1гб
2. 205312 мб
4.N=2^i
N=17
N~2^5
вообще ближе по значению 2^4, однако лучше перебор, чем недобор.
i=5
Прости, не могу с остальным помочь
1байт=8бит
1кб=1024байт
6*8192-64х=32х
96х=49152
х=512
Проверка:
49152-32768=32*512
32*512=16384
49152-32768=16384
х=512бит
либо х=64 байта
Ответ:
Дело мастера боится
Объяснение:
у человека, досконально знающего своё дело, ремесло, даже сложная работа будет ладиться и получаться.
Система NTFS
_____________