Информатика: ребят, очень нужно сделать.

dimasikbervino

23.02.2021 13:56

Информатика

Есть ответ 👍

ребят, очень нужно сделать.

213

323

Посмотреть ответы 1

Ответы на вопрос:

Иван55551

Информатика

4,5(54 оценок)

Var n,i: integer; s: string; begin write('введите натуральное число: '); read(n); str(n,s); for i: =2 to length(s) do if s[i]=s[i-1] then begin writeln('пара одинаковых цифр-соседей ',s[i]); exit end; writeln('в числе нет цифр, имеющих таких же соседей') end. пример введите натуральное число: 375422453 пара одинаковых цифр-соседей 2