Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.
1. 662 Мб=1024*662 Кбайт=1024*1024*662 байт= <span>1024*1024*8*662 бит=5553258496 бит
2. N=2^i, 256=2^i1, 16=2^i2, i1=8 бит, i2=4 бит.
Объем файла=V=кол-во пикселей*i
V1/V2=i1/i2=2</span>
Ответ: сообщение состоит из 20 символов, то есть из 20 байтов, потому что 1 символ - 8 бит,а 8 бит-1 байт.
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.