2140 гб будет в мб 2140000
Круглый тонкий хранит информацию (Диск)
Решение на паскале:
а)
var sum,i,n: int64;
BEGIN
writeln('Введите N');
readln(n);
for i := 1 to n do
sum := sum + i; // можно написать так inc(sum, i);
writeln('Сумма первых ', n, ' натуральных чисел = ', sum);
END.
б)
var sum,i,n: int64;
BEGIN
writeln('Введите N');
readln(n);
for i := 1 to n do
sum := sum + sqr(i);
writeln('Сумма квадратов первых ', n, ' натуральных чисел = ', sum);
END.
Var a:array [1..30] of integer;
i,x,n:integer;
begin
x:=1;
write('Введите степень 2 (n<=30): ');
readln (n);
for i:= 1 to n do
begin
a[i]:= x*2;
write(a[i],' ');
x:=x*2
end
end.
Количество различных вариантов первого хода = 8*4 = 32
Количество информации = log(2)332 = 5 бит