Вот код программы, определяющей есть ли, в введенной строке повторяющиеся цифры или нет. Нужно описание действия каждой строки
var
s: string;
k,j,f: integer;
ch: char;
begin
read(S);
f:=0;
for k:=1 to length(s) do
for j:=1 to length(s) do
if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end;
if f=1 then Writeln('да - ',ch) else write('нет');
readln;
end.
1. Ключевое слово для объявления переменных.
2. Объявление переменной типа строка.
3. Объявление 3 переменных типа целое число.
4. Объявление переменной типа символ.
5. Начало главной программы.
6. Считываем строку с клавиатуры.
7. Обнуляем идентификатор присутствия.
8. Для каждого символа в строке.. .
9. перебираем все символы.
10. Если два найденных символа совпадают, заносим в идентификатор присутствия 1, а в буфер символа - найденный символ.
11. После выхода из цикла проверяем значение идентификатора присутствия. Если оно 1, то совпадения есть, и выводим сообщение и символ из буфера.
⇢