Лола я з тобою погоджуюст правильний ответ 2
4096 Кбайт - 3 Мбайт + 49 байт = 4 Мбайт - 3 Мбайт + 49 байт = 1 Мбайт + 49 байт = 1048576 байт + 49 байт = 1048625 байт = 8389000 бит
Uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
156 - могло (например, для числа 960 9+6=15, 6+0=6)
1717 - могло (989)
1917 - не могло (сумма двух цифр не даст 19)
518 - не могло (5<18, а 51 не могло бы получиться)
512 - не могло (аналогично)
152 - не могло (если большая сумма 15, то меньшая не может быть меньше 15-9=6)
69 - не могло (6<9)
915 - не могло (9<15, 91 не могло получиться)
195 - не могло (19 не получить)
Ответ: 2.
