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

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

alexmosu 05 сентября 2022

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

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

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
05 сентября 2022
1
ответ
Укажите пристрой информационной системы, что используюца для введения данных. А) видеопамять, кеш-память, оперативная памятьб) клавиатура, микрофон, веб-камере, сканер в) гибкие и жосткие магнитные диски, флеш-память, оптический диск г) сенсорный екран, принтер, громкоговорители, наушники
formlikom
05 сентября 2022
1
ответ
СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 0.
krestash
05 сентября 2022
1
ответ
Помогите пожалуйста) В лыжной гонке участвуют 240 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточногофиниша, записывая номер участника цепочкой из нулей и единиц минимальной длины, одинаковой для каждого спортсмена. Каков будет информационный объем сообщения, записанного устройством, после того как промежуточный финиш пройдет половина лыжников?
ksmksm
05 сентября 2022
1
ответ
Кому и как удалось разгадать тайну египетских иероглифов? Буд те добры помогите мне я вообще нешарю.
maidle
05 сентября 2022
1
ответ
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки.com
fladik
05 сентября 2022
1
ответ
Два велосипеда одновременно направились навстречу друг другу из двух сел. Первый мог бы проехать расстояние между селами за А минут, второй — за Вминут. Через сколько минут они встретятся?
biggod
05 сентября 2022
1
ответ
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
opus44
05 сентября 2022
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
05 сентября 2022
1
ответ
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
Задайте свой вопрос

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