Под буквой Б, я это вчера сделал
Ориентированный граф (кратко орграф) — (мульти) граф, рёбрам которого присвоено направление. Направленные рёбра именуются также дугами, а в некоторых источниках и просто рёбрами.
Если ты не знаешь как создать сейчас скажу.
живешь на правую кнопку мыши там было зимы программу itunes создать и выбираешь папку и как они там документ кто принес на папку потом нажимаю на папку опять только уже левой кнопкой мыши и там вылазит еще открытие удалить и так далее ты нажимаешь изменить имя стираешь новая папка или пишешь свое название папки. заполняющая телефон для музыки на galaxy ты сразу туда туда добавляешь очень много музыки чтоб появилась песня на мелодию на нее появилась ты создал все
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>
