Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в Паскале без массивов
Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в Паскале без массивов
Гость
Ответ(ы) на вопрос:
Гостьvar
i: integer;
n: string;
b: boolean;
BEGIN
writeln('N = ?');
readln(n);
b:= false;
for i:= 1 to length(n)-1 do
if n[i] = n[i+1] then b:= true;
write(b);
readln
END.
Не нашли ответ?
Похожие вопросы