mekap22044
?>

Дано четырехзначное число.определите есть ли одинаковые цифры в нем. pascal

Информатика

Ответы

kia80
PascalABC.NET 3.4

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
Точнее сказать - чем word отличается от программы Writer из пакета OpenOffice.
Word имеет больше функций. Это важно тем, кто много профессионально работает с текстами. Кстати, Word 2010 умеет сохранять в PDF.
Зато Writer может читать все форматы Word, а Word не может читать формат Writer - формат .odt.
Word - платный.
Если сравнивать OpenOffice с Word 2007 и выше, то они отличаются друг от друга совершенно разным расположением кнопочек и панелей. Если ты привык к Word, то тяжело привыкать к OpenOffice. И наоборот. Это я знаю по себе. Но это - дело привычки. Есть целые предприятия, которые перешли но OpenOffice.
Еще могу сказать, что Writer дольше запускается. Правда, потом работает без тормозов.
Вывод: нельзя сказать, какой лучше. Если для себя - то достаточно OpenOffice поставить, ибо он уже стабильный и по-честному бесплатный.
fokolimp
Фу́нкция в программировании, или подпрограмма — фрагмент программного кода, к которому можно обратиться из другого места программы. В большинстве случаев с функцией связывается идентификатор[en], но многие языки допускают и безымянные функции. С именем функции неразрывно связан адрес первой инструкции (оператора), входящей в функцию, которой передаётся управление при обращении к функции. После выполнения функции управление возвращается обратно в адрес возврата — точку программы, где данная функция была вызвана.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дано четырехзначное число.определите есть ли одинаковые цифры в нем. pascal
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ganzashop
verkop9
svetarakityanskaya
соловьев_Куркина
menesmir
jaksonj326
lor005148
germanleon
ПетровичЖивотовская1245
vallzh8328
dkvsadovoe
notka19746
Chuhnin195107364
Railyan
tigran87-87