Начало
b=18
a=18/3
b=b-3
a=a-5
покажи b
покажи a
конец.
Протокол алгоритма:
шаг 1 2 3
b 18 15 15
<span>a 6 1 1</span>
Const n=25;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to 12 do
if (a[i] mod 2 = 0) then a[i]:=2*a[i];
for i:=14 to n-1 do begin
for j:=14 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;
end;
end;
for i:=1 to n do write(a[i]:4);
<span>end.</span>
505кб=4040000бит
900кб=7200000бит
если не ошибаюсь так
удачи :)
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>