Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
SandraBulitl
12.05.2020 11:10 •
Информатика
Вводится слово из 4 букв. определить, есть ли в нем одинаковые буквы. в программе паскаль !
Показать ответ
Ответ:
dasha5282
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 оценок)
Популярные вопросы: Информатика
tatyanamasenko
21.08.2020 08:44
8. Рассмотрите Рисунок: 1. По линии какого цвета будет двигаться робот?2. Какой датчик используется в этой программе?5. В какую сторону поворачивает робот при распознавании...
Brainsetup
30.11.2022 15:44
Задание №2. Составьте кластер Составьте постер о жизни кангюев на основе наибоее важной иинтересной, на ваш взгляд, иинформацииэто историия...
пепоам
21.02.2021 17:23
Составьте программу для вычисления суммы ряда .s=2/3 *n + 2/3 * n^2 + 2/3 *n^n. с функцией или процедурой...
alyonaSidorenk
07.08.2021 05:59
дано векторное изображение, построенное в графическом редакторе.Запишите,с каких фигур нарисованы изображения....
blinovaa
14.05.2022 09:49
Постройте алгоритм, по которому определяется сумма всех 20 введенных чисел....
igulsinya
30.10.2020 22:03
Відредагуйте і запишіть правильно текст. Поясніть орфограми, Поставте необхідні розділові знаки. Підкресліть поставленірозділові знаки і відредаговані словаЦікаві факти...
NotLikeThis
13.08.2021 19:13
Какое выражение должно быть записано в скобках (...)5=−243c5 ?Выбери правильный ответ:1) 243c 2)3c 3)−243c 4) −3c...
7777kby777777777778
22.04.2020 00:51
АЙТЫЛЫМ 8-тапсырма. Қандай мамандық иесі болсаи я, туризммен хобби ретінде айналысар ма едің? Төменге мутін мазмұны бойыншапікіріңді жаз (уақыт мөлшері: 7-8 минут),1. Өзіндік...
314159026
11.06.2020 00:48
Сочинение на тему вред и польза татуировок...
genchane
10.01.2023 21:55
У трикутнику ABC точка M- середина сторони BC, AC = 24 см Знайти відстань d від точки Мдо сторони AC, якщо площа трикутника ABC дорівнює 96 см....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.