SET @start = "Ш"
SET @end = "Я"
SELECT Название_таблицы.Название_атрибута FROM Название_таблицы WHERE (Название_атрибута >= @start AND <= @end);
Const
n=15; { длина массива }
type
tm=array[1..n] of integer;
var
i:byte;
a,b,c:tm;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(101-50);
b[i]:=random(101-50);
c[i]:=a[i]*b[i];
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(b[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(c[i],' ')
end;
Writeln
end.
18 кб=18432 байт
Вам следует уточнить о какой кодировке идёт речь.
Если Unicode, UTF-16 или ISO 10646:
1 символ=2 байта
18432/2=9216 символа
Если ASCII, UTF-8 или CP1251:
1 символ=1 байт
18432 символа
Безумный вариант для фриков, которые считают что 1 кб=1000 байт
18 кб=18000 байт (аж самого воротит)
Для Unicode и так далее:
9000 символов.
Для ASCII и так далее:
18000 символов.
Если даже это не поможет, просто попробуйте скопировать ответ, а не перепечатывать его.
Это странно.
О второй задаче:
Занято:
Фильм=1,12 ГБ=1145,8(с округлением) мб
Фото=1105,9 мб(тоже с округлением)
Отчёт=15,5 мб
Всего занято=2267,2 мб
Объём=16384 мб
Процент занятого: <span>13.8
</span>Процент свободного: 86,2
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s1:=ReadlnString;
var s2:=ReadlnString;
var s3:=s1.Interleave(s2).JoinIntoString;
Writeln(s3)
end.
<u>Пример</u>
крокодил
черепаха
кчреоркеопдаихла
1)25*8=200
2)30*1024=30720
3)9*1024=9216 *1024=9 437 184
4)6=49152
5)288=36