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

Question

Информатика

Лазарь

9 мая, 18:35

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

+2

Ответы (2)

Знаете ответ?

Ефросим · Answer 1

Var

s:string;

i, n:integer;

begin

Write ('Введите строку: ') ; Readln (s) ;

n:=Length (s) ;

i:=Pos (s[n], s) ;

if (i>0) and (in) then Writeln ('Yes')

else Writeln ('No')

end.

Степа · Answer 2

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 (f0) then

writeln ('yes')

else writeln ('no') ;

end.