1. Информатика
  2. напишите программу на языке Паскаль

напишите программу на языке Паскаль
Условие:
Напишите программу которая вводит с клавиатуры трехзначное число и выводит ответ"да",если среди его цифр нет одинаковых

1356864 1356864    2   22.04.2020 19:52    0

Ответы
dashabar1208 dashabar1208  13.10.2020 17:12

// PascalABC.NET

begin

   if ReadInteger.ToString.Distinct.Count = 3 then

     Print('да')

   else

     Print('нет')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
маринапашко2000 маринапашко2000  10.11.2020 17:56
1.В алфавите три символа , Все слова языка состоят из двух букв (буквы в словах могут повторяться). Сколько слов в языке? 2.Чему равна постоянная длина кода , если необходимо...
Tikhon228 Tikhon228  10.11.2020 17:56
вообще не понимаю. если не сложно, то с объяснением И 4 задание вычеслить длину каждого пути. Непоместилось просто ​...
настя7073 настя7073  10.11.2020 17:56
1. Выполните операции с двоичными числами: а) 10, 101+11, 111 б) 110,01+11,0101г) 10010,01-111,1 (д) 110001-11,01ж) 11010, 11. 10,01 3) 11111, 101B) 111, 10+111е) 10000-100,11и)...
prapra2017oz2bo2 prapra2017oz2bo2  10.11.2020 17:56
вообще не понимаю. если не сложно, то с объяснением​...
Танюха1410 Танюха1410  10.11.2020 17:56
Даны сложные высказывания. Запишите их с знаков логических операций. 1) Данное число либо кратно, либо не кратно семи. — 2) Минеральная вода может быть или газированной, или...
nastya02022 nastya02022  10.11.2020 17:56
1. Составить программу нахождения суммы чисел от 1 до 50 и вывода на экран полученного результата. 2. Найдите ошибки в программе и исправьте их: Program z2 Var a, b, s: integer;...
alinag13052005 alinag13052005  27.10.2020 11:32
Paint.NET -те сурет салып оны сакта Суреттен масштабын 800%-га улкеит.Не байкадын?Ойынды дәптерге тусир ​...
Зте Зте  25.11.2019 22:52
Перевод из pascal в c++ var a: array[1..10] of integer; i: integer; begin for i: =1 to 10 do read(a[i)); end....
839010 839010  25.11.2019 22:50
Склавиатуры вводится строка из двух слов, разделённых пробелом. составьте программу, которая определяет : а) начинается ли оба слова с одной и той же буквы; б) начинается ли...
влад2162 влад2162  25.11.2019 22:42
Какую команду необходимо выбрать для использования готовогошаблона в презентации? a) from templates b) empty presentation c) hide slide d) custom animation ​...

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