Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.
В Norton Commander меню вызывается клавишей F9, основное меню имеет две панели "Левую" и "Правую", в общей сложности они имеют 26 команд.
1. 32 кбайт=32*1024 байт=32*1024*8 бит.
Время передачи со скоростью 2048 бит/сек: 32*1024*8:2048=128 сек.
2. Размер файла для передачи по каналу 512 бит/сек за время 128 сек.: 512*128=65536 бит. 65536 бит=65536/8 байт=(65536/8)/1024 кбайт=8 килобайт.
Ответ: 8
Var a: integer;
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108