Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
A)
var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] <> UpCase(a[i])) then
write(a[i], ' ');
<span>end.
b)
var a: string;
i, p: integer;
q: boolean;
begin
readln(a);
for p := 0 to 9 do
for i := 1 to length(a) do
if (a[i] = inttostr(p)) then
q := true;
writeln(q);
<span>end.
c)
var a: string;
i, p, u: integer;
o: array [0..5] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '{'; o[3] := '}'; o[4] := '['; o[5] := ']';
for p := 0 to 5 do
for i := 1 to length(a) do
if (a[i] = o[p]) then
u := u + 1;
writeln(u);
<span>end.
d)
var a: string;
i, p: integer;
o: array [0..7] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '?'; o[3] := '!'; o[4] := '"'; o[5] := '.'; o[6] := ','; o[7] := ',';
for i := 1 to length(a) do
for p := 0 to 7 do
if (a[i] = o[p]) then
writeln(a[i]);
<span>end.
Ну вот:) <em>О, мой мозг, как же тебе досталось! ~_~</em></span></span></span></span>
Утилиты - программы, которые обычно не необходимы для работы компьютера, но способны улучшить его работу в некоторых аспектах. Например, CCleaner очищает жёсткий диск от ставших ненужными файлов, а System Explorer позволяет приостанавливать программы.
Один пуд - около 16,4 килограмм.
32 символа
2 байта 16 бит
32 символа * 16 бит = 512 бит
<span>ответ 512 бит</span>
N=int(input())
y=0
for i in range(1,2*n,2):
y+=i
print(y)
