Блок-схема с использованием цикла for, в цикле шаг равен +1
<span>1. Впиши носитель информации по образцу.
Компьютерная игра Магнитный диск
Ваша фотография фотобумага
Наскальный рисунок камень
Оценка в классном журнале </span><span>бумага</span>
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
Форумула нахождения объема файла по скорости и времени:
I = v*t, из этого следует что I = 2400000*1 = 2400000 бит.
После нахождения массы в битах, находим ее в магабайтах:
I = ((2400000/8)/1024)/1024 = ~0,29 МБ
Ответ: ~0,29 МБ