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

0 голосов
108 просмотров

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


Информатика (51 баллов) | 108 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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.

(142k баллов)
0 голосов

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.

(3.7k баллов)
0

Спасибочки еще раз

0

Не за что.