1) дано слово.заменить каждый "нечетный" символ на пробел. 2)дана символьная строка. определить какая буква встречается раньше: "x" или "e" ? 3) дана символьная строка . определить будет ли произведение цифр нечетным числом?
Вопрос поставлен не корректно. Сам тип файла никак влиять на нарушение авторского права не может. Авторское право можно нарушить используя либо программы и приложения типа Commercialware не приобретая на них лицензию, а использую пиратские версии, либо скачивая в сети интернет информацию, защищенную авторским правом и распространяемую без согласия автора, и нарушая действующее законодательство.
В целом все очень просто : используйте ПО имеющее лицензию Freeware или покупайте лицензию на платное ПО (сам например пользуюсь только Freeware ПО - вместо Microsoft Office использую OpenOffice, вместо Adobe Reader использую FoxitReader, вместо Winrar использую 7Zip и так далее..., а Windows 7 лицензия предустановленная фирмой). Что касается мультимедийной информации - не качайте пиратки с торрентов, а покупайте лицензионные диски (нужно же как-то отблагодарить создателей любимого вашего фильма или любимого исполнителя музыки). Тогда ничего нарушать и не будете.
Const n=15; Var a:array[1..n] of integer; i,indx,k,tr,indxx:integer; Begin Randomize; For i:=1 to n do begin A[i]:=Random(40)-20; Write(a[i],' '); end; Writeln; write('0 имеет номер: '); For i:=1 to n do Begin If A[i]=0 thenwrite(i); end; Writeln; indx:=0; For i:=1 to n do Begin If a[i] mod 2=0 then begin indx += 1; a[indx]:=a[i]; end; end; Write('Индекс четных элементов: '); For i:=1 to indx do write(a[i],' '); For i:=1 to n do Begin If A[i]<0 then Begin inc(k); end; end; Writeln; Writeln('Кoличество отрицательных элементов: ',k); For i:=1 to n do Begin If A[i] mod 3=0 then tr:=a[i]; end; Writeln('Кратное трем ',tr); indxx:=0; writeln('Индексы кратны 3: '); For i:=1 to n do Begin If a[i] mod 3=0 then begin indxx += 1; a[indxx]:=a[i]; write(' ',a[i]); end; end; end.
1)
var
s: string;
i: integer;
begin
writeln('Введите слово');
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then s[i]:= ' ';
writeln('Полученная строка: ', s);
end.
2)
var
s: string; {Программа определяет только английские буквы x или e, т.к. в задании указаны английские буквы}
i: integer;
xchar, echar: integer;
begin
writeln('Введите строку');
readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'x' then xchar:= i;
if s[i] = 'e' then echar:= i;
end;
if xchar < echar then writeln('буква "x" встретилась раньше');
if echar < xchar then writeln('буква "e" встретилась раньше');
if (echar = 0) or (xchar = 0) then writeln('одна из букв "x" или "e" не встретилась');
end.
3-е задание вообще непонятно. Произведение каких цифр описать содержание задания подробнее.