Ответ:
Код к задаче: «Из слова ТЕСТИРОВАНИЕ сделать слово ТОВАР»
1.var s:string;
2.begin
3.s:='ТЕСТИРОВАНИЕ';
4.delete(s,1,2);
5.delete(s,5,2);
6.writeln(s);
7.readln
8.end.
Объяснение:
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var s:=ReadlnString('Введите слово:').ToLower;
if s=ReverseString(s) then Writeln('Перевертыш')
else Writeln('Не перевертыш')
end.
<u><em>Тестовое решение:</em></u>
Введите слово: Шалаш
Перевертыш
Введите слово: револьвер
Не перевертыш
Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. Затем выведем все элементы, для которых это оказалось правдой.
Pascal
var
i, j, n: integer;
flag: boolean;
a: array[1..10000] of integer;
b: array[1..10000] of boolean;
begin
read(n);
for i := 1 to n do
begin
read(a[i]);
b[i] := true;
end;
b[n] := false;
for i := 1 to n - 1 do
if b[i] then
begin
flag := true;
for j := i + 1 to n do
if a[i] = a[j] then
begin
flag := false;
b[j] := false;
end;
if flag then
b[i] := false;
end;
for i := 1 to n do
if b[i] then
write(a[i], ' ');
end.
Регистры процессора, Внешняя память, ОП, ПЗУ