Вариант без рекурсии - как просил позже
function factorization ( numeric: integer ): integer;
var d: integer;
begin
write(numeric, ' = 1');
d := 2;
while numeric > 1 do
begin
if numeric mod d = 0 then
begin
write (' * ', d);
numeric := numeric div d;
end
else inc(d);
end;
end;
var x: integer;
begin
write('Введите число: ');
readln(x);
factorization(x);
<span>end.</span>
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 22 шт
i = 16 бит
I - ?
Решение:
I = K * i = 22 * 16 бит = 352.0 бит
352.0 бит = 44.0 байт
Походу пропущен один знак у фразы
После program n_3 убери точку с запятой, может поможет
Program Lloyd;
var
i,a:integer;
begin
a:=1;
for i:=1 to 55 do begin
if (i mod 5)=0 then
a:=a*i;
end;
writeln('Произведение =',a);
end.
Uses Crt;
Const
N = 3;
M = 4;
Var
A,B:array[1..N,1..M] of real;
i,j:integer;
Min,Max:real;
Begin
ClrScr;
Randomize;
Min:=1;
Max:=1;
WriteLn('Массив B:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
B[i,j]:=random(20)+1;
Write(B[i,j]:3,' ')
End;
WriteLn
End;
Max:=B[1,1];
Min:=B[1,1];
For i:= 1 to N do
For j:= 1 to M do
Begin
if B[i,j] > Max then Max:=B[i,j];
if B[i,j] < Min then Min:=B[i,j];
End;
WriteLn('Min(B) = ',Min);
WriteLn('Max(B) = ',Max);
WriteLn('Массив A:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=(2*B[i,j]+Min)/Max;
Write(A[i,j]:6:3,' ');
End;
WriteLn
End;
ReadLn
End.