Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
<span>стройство для запоминания данных. В зависимости от характера использования различают внутреннюю или внешнюю память.</span>
48 * 40 * 64 = 122880,
Теперь нужно поделить на 1024(это сколько байтов в Кбайт)
Получится 120 Кбайт
Program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if( i mod 4=0)then writeln;
end;
end.