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

254

370

Посмотреть ответы 3

Ответы на вопрос:

peranyaanko

Информатика

4,6(20 оценок)

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.

ГеральтИзРивии999

Информатика

4,8(31 оценок)

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.