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

Question

Информатика

Никоша

22 мая, 02:11

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

+2

Ответы (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.