Вход
Регистрация
О проекте Как заработать?
44

Дано трехзначное число

alexmosu 17 апреля 2023

Дано трехзначное число. Написать программу, которая определяет верно ли, что все его цифрыразличные

категория: информатика
ответить
в избранное

82

Попробуй. program shdhasd; var s: string; beginwriteln ('Введите трехзначное число '); read (s); if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) thenwrite ('Не верно! ') elsewrite ('Верно'); end.

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
romsvet
17 апреля 2023
1
ответ
Укажите пристрой информационной системы, что используюца для введения данных. А) видеопамять, кеш-память, оперативная памятьб) клавиатура, микрофон, веб-камере, сканер в) гибкие и жосткие магнитные диски, флеш-память, оптический диск г) сенсорный екран, принтер, громкоговорители, наушники
formlikom
17 апреля 2023
1
ответ
СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 0.
krestash
17 апреля 2023
1
ответ
Помогите пожалуйста) В лыжной гонке участвуют 240 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточногофиниша, записывая номер участника цепочкой из нулей и единиц минимальной длины, одинаковой для каждого спортсмена. Каков будет информационный объем сообщения, записанного устройством, после того как промежуточный финиш пройдет половина лыжников?
ksmksm
17 апреля 2023
1
ответ
Кому и как удалось разгадать тайну египетских иероглифов? Буд те добры помогите мне я вообще нешарю.
maidle
17 апреля 2023
1
ответ
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки.com
fladik
17 апреля 2023
1
ответ
Два велосипеда одновременно направились навстречу друг другу из двух сел. Первый мог бы проехать расстояние между селами за А минут, второй — за Вминут. Через сколько минут они встретятся?
biggod
17 апреля 2023
1
ответ
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
opus44
17 апреля 2023
1
ответ
Есть прога: program WTF; {$APPTYPE CONSOLE} usesSysUtils; vara,b,c,d: real; beginread (a,b,c,d); if d=0 then beginwhile (sqr (a)*b<288) do beginb: =b+1; end; d: =a*sqr (b); endelse if c=0 then beginb: =sqrt (d)*(-1); while (a*sqr (b) <>81) do begina: =a+1; end; c: =sqr (a)*b; end; writeln (a: 1:0,',b: 1:0,',c: 1:0,',d: 1:0); end.
sashajat
17 апреля 2023
1
ответ
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
Задайте свой вопрос

ПОПУЛЯРНОЕ
romsvet, 17 апреля 2023
Укажите пристрой информационной системы, что используюца для введения данных
formlikom, 17 апреля 2023
СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел
krestash, 17 апреля 2023
Помогите пожалуйста) В лыжной гонке участвуют 240 спортсменов
ksmksm, 17 апреля 2023
Кому и как удалось разгадать тайну египетских иероглифов?
maidle, 17 апреля 2023
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки
fladik, 17 апреля 2023
Два велосипеда одновременно направились навстречу друг другу из двух…
biggod, 17 апреля 2023
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов
opus44, 17 апреля 2023
Есть прога: program WTF; {$APPTYPE CONSOLE} usesSysUtils; vara,b,c,d: real; beginread
sashajat, 17 апреля 2023
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...