Составьте программу, проверяющую, есть ли в слове X повторяющиеся буквы
Составьте программу, проверяющую, есть ли в слове 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.
Не нашли ответ?
Похожие вопросы