Ааааапааааааапппааааааааааввавввввваааааа
8 Мбайта = 8*1024 Кбайт = 8192 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (8192/100)*25 = 2048 Кбайт
Лучший ответ пж, ведь я помог :)
0,00025 кбайт = 0,25 байт = 2 бит
{
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.