Выяснить, все ли буквы слова Х одинаковы

@KatrinVev · Регистрация: 21.01.2013

Author24 — интернет-сервис помощи студентам

Составьте программу, позволяющую выяснить, все ли буквы слова Х одинаковы.

Kodzaev · 21.01.2013, 18:11

Pascal

Var
  x: String;
  b: Boolean;
  i: Byte;
BEGIN
Writeln('Введите слово: ');
Readln(x);
b:=True;
Repeat
  Inc(i);
  If x[i]<>x[1] Then
  b:=False;
until (b=False) or (i=Length(x));
Writeln(b);
END.

@Puporev · 21.01.2013, 18:11

Pascal

f:=true;
i:=1;
while (i>length(x))and f do
if s[i+1]<>s[i] then f:=false
else i:=i+1;
if f then write('Все буквы одинаковые')
else write('Не все буквы одинаковые');

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
		1
	Выяснить, все ли буквы слова Х одинаковы 21.01.2013, 18:05. Показов 1526. Ответов 2 Метки нет (Все метки) Составьте программу, позволяющую выяснить, все ли буквы слова Х одинаковы. 0

	21.01.2013, 18:11

Выяснить, все ли буквы слова Х одинаковы

Решение