Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.