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

Составьте программу, проверяющую, есть ли в слове X повторяющиеся буквы

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

Program al;
var s:string;
i:integer;
begin
writeln(vvedite slovo );
readln(s);
for i := 1 to length(s) do
if s[i]=s[1]
 then
writeln( v slove esti povtoriaiusciesia bukvi)
else
writeln(   v slove net povtoriaiusciehsia bukv );
readln;
end.