Ответ:
Отяаьщшьпь беняй, м фцхый эюьхтпнщ. Яэьгпнацщям, сн эьхсыь. Пьа ьы, эюцпнщ! Эьщбхынчшн — м ъыцщ ятом ъбсютдьъ Ц хныьяецпь фснщ ынрюнс ц эьгпнщ. Ьяанщйыиг ътеанщ хн яьоьч птяац, Н ьыц ътым янъц яоцщц я эбац. М — ьсцы, н ынрщиг ытптфс ыт яьеатёй, Ц ытщтэит ёбашц ыиыт п етяац. Ыц сюбхтч б ътым, ыц щлоцъьч ыта. М бяанщь эьл ын цягьст щта. Ь, шншцъ ытьозмаыиъ шнхнщям ъцю Аьч эьюьч, шнш пяаютенщ м фцхыц юняяпта!
Каждая буква заменяется на следующую в размере 14. То есть А это Н и т.д.
Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.
Ответ:
2 Кбайт = 2 048 Байт
<span>4 Мбайт = 33 554 432 Бит </span>
<span>3.5 Гигабайт = 3 670 016 Кбайт </span>
<span>146512 бит = 18 314 байт </span>
414777 бит = 50,63 Кбайт
<span>Если это задача то за 44 секунды. </span>
<span>Если практика, то скорость нестабильная, так что может и за 38 а может и за 60.</span>
Если это Паскаль. то нумерация массива с 1 начинается. Цикл увеличивает все элементы массива на единицу. Следовательно, x[2] вернет 4.