Вести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.
Пример: Введите целое число
1234
Нет одинаковых цифр
Введите целое число
1242
Есть одинаковые цифры.
Язык программирования КУМИР.
Я пробовала вот сделать программу, но она определяет не верно:
алг
нач
цел a,b,c,d,e
вывод "Введите целое число", нс
ввод a
c:=0
e:=0
нц пока a>0 и e=0
b:=mod(a,10)
d:=1
нц пока d<=c и e=0
если d=b то e:=1
иначе d:=d+1
все
кц
если e=0 то
c:=c+1
c:=b
a:=div(a,10)
все
кц
если e=0 то вывод "Нет одинаковых цифр"
иначе вывод "Есть одинаковые цифры"
все
кон

Очень чтобы вы мне самостоятельно (а не содрали с инета, как делают многие на знаниях)

1. Как называется программа для создания и редактирования текста с расширенными возможностями?
Смотря какие возможности вы считаете расширенными и по сравнению с чем
а) MS WORD;
б) WORD PAD;

2. Из каких основных элементов состоит окно программы текстового редактора MS WORD?
А какая версия программы?
а) строка заголовка и строка меню;
б) панели инструментов;
в) рабочее поле;

3. Какие используют для создания нового документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОЗДАТЬ;
в) кнопка на панели инструментов СОЗДАТЬ;

4. Какие используют для открытия документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – ОТКРЫТЬ;
в) кнопка на панели инструментов ОТКРЫТЬ;

5. Какие используют для сохранения документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОХРАНИТЬ;
в) кнопка на панели инструментов СОХРАНИТЬ;

6. Какие используют для удаления фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВЫРЕЗАТЬ;
б) команда главного меню ПРАВКА – ВЫРЕЗАТЬ;
в) нажать кнопку DELETE на клавиатуре;
д) кнопка на панели инструментов ВЫРЕЗАТЬ.

7. Какие используют для копирования фрагмента текста в текстовом редакторе MS WORD?:
а) команда контекстного меню КОПИРОВАТЬ;
б) команда главного меню ПРАВКА – КОПИРОВАТЬ;
в) кнопка на панели инструментов КОПИРОВАТЬ;

8. Какие используют для вставки скопированного фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВСТАВИТЬ;
б) команда главного меню ПРАВКА – ВСТАВИТЬ;
в) кнопка на панели инструментов ВСТАВИТЬ;

9. С каких вызвать окно диалога ШРИФТ в текстовом редакторе MS WORD?
а) команда главного меню ФОРМАТ – ШРИФТ;
в) кнопка на панели инструментов;

10. Какие параметры шрифта можно установить в окне ШРИФТ текстового редактора MS WORD?
а) тип; ?
б) размер;
в) цвет;
г) стиль (начертание);

11. Какое начертание текста можно установить в текстовом редакторе MS WORD.
а) жирное;
б) курсивное;
в) подчеркнутое;

12. Какое выравнивание текста можно установить в текстовом редакторе MS WORD.
а) по левому краю;
б) по правому краю;
в) по центру;
г) по ширине страницы;

13. Какая есть ориентация у страницы в текстовом редакторе MS WORD?
в) альбомная;
г) книжная;

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger('Количество строк: ');
  var a:=new string[n];
  for var i:=0 to n-1 do a[i]:=ReadlnString;
  Writeln('*** РЕЗУЛЬТАТ ***');
  a:=a.Select(s->(s,s.ToCharArray.Where(c->c=' ').Count))
    .OrderBy(vk->vk[1]).Select(vk->vk[0]).ToArray;
  a.Println(NewLine)
end.

Пример
Количество строк:  4
Это   первая   стро  ка
А     это    вторая       строка
Это- третья
    Четвертая - последняя
*** РЕЗУЛЬТАТ ***
Это- третья
    Четвертая - последняя
Это   первая   стро  ка
А     это    вторая       строка