Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

.Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. .......

5-9 класс

В программе паскаль !!!Срочно !!

Kantik88 08 марта 2014 г., 7:08:15 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
02546
08 марта 2014 г., 8:44:00 (10 лет назад)

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.




Ответить

Другие вопросы из категории

Нужно на чертить таблицу. ( на листочке) и рассчитать все данные. Вычислить расходы на командировки сотрудников за месяц, если планируется направить

одного человека на один день, двух - на шесть дней и троих - на два дня. Проезд составляет 150 рублей,
суточные - 100 рублей, квартирные - 12 рублей. Необходимо учесть, что при однодневной
командировке оплачивается лишь проезд.

Определить Лежит ли точка в заштрихованной плоскости.

Напишите в Паскале пожалуйста

Читайте также

Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы.

В программе паскаль !! Срочно !!!!

1. Дано натуральное число n. Определить есть ли в нем цифра x. (x, n - вводятся с клавиатуры)

2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Помогите, пожалуйста

Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаю
program dzkan;
var x,a,b,c:integer;
begin
writeln(Введите трехзначное число');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;




Вы находитесь на странице вопроса ".Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. .......", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.