Проверить, есть ли в данной строке одинаковые символы.
10-11 класс
|
var i,j,count: integer;
st:string;
begin
readln(st);
for i:= 1 to length(st) do
for j:= i+1 to length(st) do
if st[i]=st[j] then
count:=1;
if count=1
thenwriteln('Yes')
else
writeln('No');
end.
так пробел тоже символ, он в любом случае будет повторяться_)
если строка состоит из одного слова то надо проверить повторяются ли буквы
оу спасибо:))
Другие вопросы из категории
для следующего графика, на фото...
1)значение величины
2)значение переменной
3)часть почтового адреса
4)номер элемента массива
Известны стоимость и калорийность каждого блюда. Сколько стоят самый
дешевый и самый дорогой обеды? Сколько калорий включает в себя самое
калорийное блюдо? Кто нибудь знает как решить? скиньте пожалуйста файлом, задача решается в XL.
Читайте также
в)подсчитывает количество вхождений заданного символа.
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
размерностью n х m,
заполненный случайными числами. Определить, есть ли в данном массиве строка,
содержащая больше положительных элементов,
чем отрицательных. Ответ: «Есть» или «Нет».
Если можно решите попроще, каждая отдельная операции через подпограмму
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.