А) Умножить на 8
Б) Умножить на 1024
В) Умножить на 1024
Так как, в 1 байте 8 бит
1 Кб= 1024 байт
1 Мб= 1024 Кб
Без труда не вытащишь рыбку из труда
Program n1;
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.