В Паскале:
<span>z[1] = 'і'
</span><span>z[2] = 'н'
</span><span>z[3] = 'ф'
</span><span>z[4] = 'о'
</span><span><span>z[5] = </span>'р'
и так далее
Ответ: 'р'.
</span>
Смотри вложение
............................
const
n = 10; //количество чисел, которое нужно сформировать
First = -10; //С какого числа должны генерироваться случайные числа
Second = 15;{По какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)}
var
f, g, h: text;
i: integer;
Number: array [1..n] of integer;{Массив, в который записываются числа, считанные из файлов}
begin
randomize;
assign(f, 'f.txt');//Инициализируем файл f
assign(g, 'g.txt');//Инициализируем файл g
assign(h, 'h.txt');//Инициализируем файл h
rewrite(f);//Открываем файл f для записи
for i:= 1 to n div 2 do write(f, random(abs(First) + abs(Second)) + First , ' ');{Первую половину чисел записываем в файл f}
close(f);//Закрываем файл f
rewrite(g);//Открываем файл g для записи
for i:= (n div 2) + 1 to n do write(g, random(abs(First) + abs(Second)) + First, ' ');{Вторую половину случайно сгенерированных чисел записываем в файл g}
close(g);//Закрываем файл g
reset(f);//Открываем файл f для считывания
for i:= 1 to n div 2 do read(f, Number[i]);{Первую половину чисел считываем из файла f в массив}
close(f);//Закрываем файл f
reset(g);//Открываем файл g для считывания
for i:= (n div 2) + 1 to n do read(g, Number[i]);{Вторую половину чисел считываем из файла g в массив}
close(g);//Закрываем файл g
rewrite(h);//Открываем файл h для записи
for i:= 1 to n div 2 do write(h, Number[i], ' ');{Первую половину считанных чисел из массива записываем в файл h}
writeln(h);//Перевод на новую строку в файле h
for i:= (n div 2) + 1 to n do write(h, Number[i], ' ');{Вторую половину считанных чисел из массива записываем в файл h}
close(h);//Закрываем файл h
end.
Все файлы создаются там же, где находится файл программы.
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>