Палиндромом называется слово, которое одинаково читается как слева направо, так и справа налево, например, в языке такими словами являются «radar» и «racecar». света изучает язык и решила принять участие в дистанционном конкурсе знатоков языка. но, когда она писала ответ на «найдите самое длинное слово, которое является палиндромом», ошиблась и нажала на клавиатуре одну лишнюю клавишу. определите, какую букву нужно удалить в набранном светой слове, чтобы это слово стало палиндромом. программа получает на вход строку из строчных букв, содержащую не менее 2 и не более 100 000 символов. программа должна вывести единственное число – номер буквы в строке, при удалении которой слово становится палиндромом. если при удалении любой буквы слово не станет палиндромом, программа должна вывести число 0. кто может написать на pascal'е программу.?
Ответы
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
Тестовое решение:
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
Тестовое решение:
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
1)
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Подскажите какой здесь будет ответ?ответы:2345
Автор: xarfagr
Составить блок систему таблицу умножения на 3
Автор: Aleksei Aleksandrovna649
45 . составить программу на паскале для этого выражения y = a+2a+3a=na
Автор: Pavlovna897
Минимальный объект, с которым работает пользователь ms excel ?
Автор: mileva84
Вкачестве номеров сетей не могут быть использованы ip адреса
Автор: sve34166163
function ispal(s: string): boolean;
var t: string;
i: integer;
begin
t:='';
for i:=length(s) downto 1 do t:=t+s[i];
if t=s then ispal:=true
else ispal:=false;
end;
var s,t: string;
i,f: integer;
begin
readln(s);
f:=0;
t:='';
for i:=1 to length(s) do
begin
t:=s[i];
delete(s,i,1);
if ispal(s) then
begin
f:=1;
insert(t,s,i);
break;
end;
insert(t,s,i);
end;
if f=1 then write(pos(t,s))
else write(0);
end.