begin var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой var l1 := s.Length; // всего цифр var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр if l1 = l2 then Writeln('Одинаковых цифр нет') else Writeln('Одинаковые цифры есть') end.
zbellatriks
09.04.2022
Точнее сказать - чем word отличается от программы Writer из пакета OpenOffice. Word имеет больше функций. Это важно тем, кто много профессионально работает с текстами. Кстати, Word 2010 умеет сохранять в PDF. Зато Writer может читать все форматы Word, а Word не может читать формат Writer - формат .odt. Word - платный. Если сравнивать OpenOffice с Word 2007 и выше, то они отличаются друг от друга совершенно разным расположением кнопочек и панелей. Если ты привык к Word, то тяжело привыкать к OpenOffice. И наоборот. Это я знаю по себе. Но это - дело привычки. Есть целые предприятия, которые перешли но OpenOffice. Еще могу сказать, что Writer дольше запускается. Правда, потом работает без тормозов. Вывод: нельзя сказать, какой лучше. Если для себя - то достаточно OpenOffice поставить, ибо он уже стабильный и по-честному бесплатный.
fokolimp
09.04.2022
Фу́нкция в программировании, или подпрограмма — фрагмент программного кода, к которому можно обратиться из другого места программы. В большинстве случаев с функцией связывается идентификатор[en], но многие языки допускают и безымянные функции. С именем функции неразрывно связан адрес первой инструкции (оператора), входящей в функцию, которой передаётся управление при обращении к функции. После выполнения функции управление возвращается обратно в адрес возврата — точку программы, где данная функция была вызвана.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дано четырехзначное число.определите есть ли одинаковые цифры в нем. pascal
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.