Войти
Регистрация
Спроси 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, запись которых является палиндромом. входные данные вводятся...
sargsyantatev1
18.11.2022 09:14
3. Используя ключевые слова, составьте рассказ о гуннах в Европе ключевые слова : Гунны в современной Венгрии Дунай Аттила Блэда остготы аэций каталаунские поля Рим контрибуция...
missvictoriak
10.10.2020 13:35
В «95 тезисах» Лютер следующим образом выразил свое отношение к индульгенциям: «Тщетной и ложной яв¬ляется надежда найти при индульгенций, если бы даже сам папа готов был...
azzitop
22.11.2022 02:57
Определить моменты сил: 1- нагрузки, 2- противовесаС РЕШЕНИЕМ...
qwerty11115
22.11.2022 02:57
Выберите из списка единицы измерения информации (несколько вариантов ответов):гигагерцтерабайтбайтгигабайтмегабайттераватт...
SherlockAlya
10.10.2022 11:43
Окружность вписана в треугольник АВС и касается ее сторон в точках M, K, N. АК=5см, ВМ=7см, СN= 4см. Найдите: 1) длины сторон треугольника АВС и поясните свой ответ2) периметр...
ЛераКоролёва13
08.05.2021 07:01
Языковы ПРАВИЛА 419. Предложение Сентябрь бил тихии,minati , к счастью, без дождей, осложненоА) однородными членами, обращениемВ) однородными членами, вводним словомС) водным...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.