Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.
program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
Потому что в ASCII всего 2^8 = 256 символов (обычно это цифры, символы, латиница большие и маленькие буквы, национальный алфавит большие и маленькие буквы)
в юникоде же все сложнее. UTF-16 действительно занимает 16 бит на символ и имеет в себе 2^16 = 65`536 символов, куда помещается множество алфавитов разных языков, в том числе куча иероглифов, которые в ASCII просто не помещались. Описание наборов символов есть на вики
но есть еще и UTF-8 юникодная кодировка которая организована куда сложнее, занимает по 8 бит на символ для латиницы, но дальше идет расширение. Например символы кириллицы занимают уже по 16 бит
в юникоде есть и другие типы кодировок типа UTF-32LE соответственно 32 бита на символ
так что утверждение что "<span>код Unicode-2 байта на символ</span>" вообще говоря сомнительно без уточнения конкретной кодировки.
Ответ:
8
Если перевести, то:
"s" переменная, которое содержит поле ввода данных
"k" переменная, которое содержит поле ввода данных
Если "s" больше или меньше "k", то выводить в консоли "ДА"
var s,i,k:integer;
begin
s:=1;
for k:=1 to 7 do begin
readln(i);
if (i mod 3=0) and (i<0) then s:=s*i;
end;
writeln(s);
end.