Напечатать все буквы, входящие в текст не менее двух раз - 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 происходит следующее:

  1. Объявляются переменные: s (строка), i, j, k (целые числа).
  2. Считывается строка с помощью функции readln().
  3. Запускается цикл for, который проходит по каждому символу в строке.
  4. Внутри цикла создается переменная k, которая инициализируется значением 0.
  5. Запускается вложенный цикл for, который проходит по всем символам строки от текущего до конца строки.
  6. Внутри вложенного цикла проверяется, равны ли текущий и следующий символы. Если да, то значение переменной k увеличивается на 1.
  7. После окончания вложенного цикла проверяется значение переменной k. Если оно больше или равно 2, то текущий символ и его количество выводятся на экран с помощью функции writeln().
  8. После окончания внешнего цикла программа завершается с помощью функции readln().

Оцени полезность:

9   голосов , оценка 4.556 из 5
Похожие ответы