Напечатать все буквы, входящие в текст не менее двух раз - Pascal (10547)
Формулировка задачи:
Дан текст(любой) из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз.
Решение задачи: «Напечатать все буквы, входящие в текст не менее двух раз»
textual
Листинг программы
program test; var s:string;i,j,k:integer; begin readln(s); for i:=1 to length(s) do begin k:=0; for j:=i to length(s)-1 do if s[i]=s[j] then inc(k); if k>=2 then writeln(s[i] ,k); end; readln; end.
Объяснение кода листинга программы
В данном коде на языке Pascal происходит следующее:
- Объявляются переменные: s (строка), i, j, k (целые числа).
- Считывается строка с помощью функции readln().
- Запускается цикл for, который проходит по каждому символу в строке.
- Внутри цикла создается переменная k, которая инициализируется значением 0.
- Запускается вложенный цикл for, который проходит по всем символам строки от текущего до конца строки.
- Внутри вложенного цикла проверяется, равны ли текущий и следующий символы. Если да, то значение переменной k увеличивается на 1.
- После окончания вложенного цикла проверяется значение переменной k. Если оно больше или равно 2, то текущий символ и его количество выводятся на экран с помощью функции writeln().
- После окончания внешнего цикла программа завершается с помощью функции readln().