Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pomxic
08.08.2022 02:54 •
Информатика
Вводится слово из 4 букв. определить, есть ли в нем одинаковые буквы. в программе паскаль !
Показать ответ
Ответ:
leda2003
06.07.2020 09:55
Var s:string;
i,j,d,k:integer;
begin
readln(s);
d:=length(s);
k:=(-1)*d;
for i:=1 to d do
for j:=1 to d do
if s[i]=s[j] then k:=k+1;
if k=0 then writeln('нет') else writeln('есть');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ZSkeletZ
15.06.2022 17:48
Решить: 676876-7577+6798-6537+465-77557=?...
Кыкук
15.06.2022 17:48
Логическое выражение not(х1) * not (х2) * not (х3) + not(х1) * not (х2) * (х3 v not(х1) * (х2) * not(х3) v not(х1)* (х2) * (х3) v х1* not(х2) * not(х3) v (х1) * (х2) * not(х3)...
оьмдды
24.06.2020 09:04
Какие из чисел можно сохранить в восьмиразрядном формате? выберите один или несколько ответов: 1. 4438 2. 25610 3. 1010102 4. 5f16...
lalaland5
24.06.2020 09:04
Решите на питоне даны два четырёхзначных числа a и b. выведите все четырёхзначные числа на отрезке от a до b, запись которых является палиндромом. входные данные вводятся...
gusakova2016poly
18.12.2020 19:37
Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : =1819 b : =(a div 100)*10+9 a : =(10*b-a) mod 100...
byxanceva6kv2
15.02.2020 01:38
Вводится две строки. длина каждой не превосходит 255 символов. определить, верно ли, что все элементы первой строки входят во вторую...
sofyashevtsova
01.02.2020 01:52
PYTHON. Объясните мне Неандертальцу, на пяти пальцах. Почему здесь x = 200 и почему тут new стала функцией?...
sitkavetskiy
31.10.2021 23:34
Кто что может ну ну будьте людьми ...
katrinmirz
04.12.2021 04:19
Длина прямоугольника на 4 см больше ширины. Каковы будут размеры этого прямоугольника. если площадь прямоугольника больше 96 см2?...
l3bv1t
18.11.2022 09:14
Из предложенных формул выберите формулы оксидов Р.О, КОН MgO ZnCla, SOs, AICIs, К.О. СО и классифицируйте ихКислотные оксилыОсновные оксилы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,j,d,k:integer;
begin
readln(s);
d:=length(s);
k:=(-1)*d;
for i:=1 to d do
for j:=1 to d do
if s[i]=s[j] then k:=k+1;
if k=0 then writeln('нет') else writeln('есть');
end.