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

Question

Информатика

Евстратий

7 ноября, 13:08

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ерофей · Answer 1

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.