Если нужна программа, то вот
1. 0,5 кб " (4096 \ 8) \ 1024 "
2. 1048576 байт " 1 * 1024 * 1024 "
3. 3.75 кб " (30720 \ 8) \ 1024"
4. 0.25 мб "1 сим. = 1 байт => (<span>262144 \ 1024) \ 1024 </span> "
5. 0.348 гб, НЕТ НЕЛЬЗЯ! "(365000 \ 1024) \ 1204"
<span>const
D: real = 10; // число км в день
p: real = 1.12; // %
M: integer = 30;// число дней в месяце
N: integer = 25;// макс дистанция в условии задачи
var c: integer;
s, x: real;
begin
x := D;
for c := 1 to </span>M<span> do begin
s := s + x;
x := x * p;
end;
writeln('в месяц пробегает: ', s);
x := D; c := 0;
while (x < N) do begin
c := c + 1;
x := x * p;
end;
writeln('Нужно ', c, ' дней');
end.
</span>
Примерно по такой схеме (см. рисунок в приложении):