Ответ:
1. Unicode UTF-16
2. 5120 байт
3. 5 Кбайт
Объяснение:
1. текст содержит различные языки, включая китайский, поэтому кодировка Unicode. Любые одно-байтовые кодировки не подойдут: в китайском алфавите количество иероглифов превышает 256.
Далее тип Unicode может быть UTF-8 и UTF-16. в UTF-8 для каждого символа длина в байтах различна. Для нее не получится рассчитать общую длину текста, не зная что содержит этот текст. Потому выбираем UTF-16 кодировку, два байта на любой символ.
2. 40 * 64 * 2 = 5120 байт
3. 5120 / 1024 = 5 Кбайт
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
Из этих двух высказываний можно сделать вывод с) Мястан хорошо видит в темноте.
Если Мястан-кот,и все коты хорошо видят в темноте,то Мястан хорошо видит в темноте.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>