Question

Дана строка . Проверьте ,если ли в строке еще один символ равный последнему. Вывести 'yes' или 'no' Сделать программу в паскале

Answer 1

Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.

Answer 2

Var
  s:string;
  i,n:integer;
begin
  Write('Введите строку: '); Readln(s);
  n:=Length(s);
  i:=Pos(s[n],s);
  if (i>0) and (i<>n) then Writeln('Yes')
  else Writeln('No')
end.

Answer 3

Решение в Pascal:

program CheckLastCharEquality;
var
  inputString: string;
  lastChar: char;
  i: integer;
  found: boolean;
begin
  found := false;
  write('Enter a string: ');
  readln(inputString);
  lastChar := inputString[length(inputString)];
  for i := 1 to length(inputString) - 1 do
  begin
    if inputString[i] = lastChar then
    begin
      found := true;
      break;
    end;
  end;
  if found then
    writeln('yes')
  else
    writeln('no');
end.

Эта программа запрашивает у пользователя строку, а затем проверяет, есть ли в этой строке еще один символ, равный последнему. Результат "yes" будет выведен, если такой символ найден, и "no" в противном случае.

Объяснение:

- Программа сначала запрашивает у пользователя ввод строки. - Затем она сохраняет последний символ строки в переменной `lastChar`. - Далее программа проходит по всем символам строки, кроме последнего, и сравнивает их с `lastChar`. - Если находится символ, равный `lastChar`, программа выводит "yes" и завершает выполнение. В противном случае выводится "no".

Это решение позволит вам проверить, есть ли в строке еще один символ, равный последнему.