1 символ = 8 бит, включая пробелы и знаки препинания.
Василий сьел 6 конфет, из них 2 было барбариски.
Ответ: 48 символов * 8 бит = 384 бита
Private static int[] DeleteSomethingInArray(int[] a)
{
Debug.Assert(a.Length > 1 && a.Any(x => x > 0) && a.Any(x => x < 0)); // это просто проверка, можно удалить или закоментировать
if (a.Length == 2)
return a;
var max_i = -1;
var min_i = -1;
for (var i = 0; i < a.Length; i++)
{
if (a[i] < 0 && (max_i < 0 || a[max_i] < a[i]))
max_i = i;
if (a[i] > 0 && (min_i < 0 || a[min_i] > a[i]))
min_i = i;
}
var result = new int[a.Length - Math.Abs(max_i - min_i) + 1];
var j = 0;
for (var i = 0; i < a.Length; i++)
{
if (i <= Math.Min(max_i, min_i) || i >= Math.Max(max_i, min_i))
result[j++] = a[i];
}
return result;
}
На всякий случай в заголовках
using System;
using System.Diagnostics;
using System.Linq;
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 P1;
var z,x,y,p,e:integer;
begin
write('Количество этажей = '); readln(x);
write('Количество квартир на лестничной площадке = ');
readln(y);
write('Номер квартиры = '); readln(z);
p:=(z-1) div (x*y)+1;
e:=((z-(p-1)*x*y)-1) div y +1;
writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');
end.
Пример:
Количество этажей = 9
Количество квартир на лестничной площадке = 4
Номер квартиры = 67
Квартира 67 находится в 2 подъезде на 8 этаже
