сервис вопросов и ответовС клавиатуры задано целое трехзначное число. Определите,есть ли среди цифр задуманного числа одинаковые.
5-9 класс|
|
кумир
Luada346
16 марта 2015 г., 5:58:52 (9 лет назад)
Stjsha
16 марта 2015 г., 8:09:14 (9 лет назад)
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Ответить
Другие вопросы из категории
1.приведите по 2-3 примера кибернетических систем:
а) без обратной связи;
б) с обратной связью
2.какую структуру может иметь управляющий алгоритм:
а) без обратной связи;
б) при наличии обратной связи?
Напишите программу на Паскале.Из элнментов данного массива W[1..20]создать два новых массива, первый из которых содержит только положительные элементы, а
второй только отрицательные.
Читайте также
1. Дано натуральное число n. Определить есть ли в нем цифра x. (x, n - вводятся с клавиатуры)
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Дано трехзначное число. напишите программу, которая определяет:
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
Вы находитесь на странице вопроса "С клавиатуры задано целое трехзначное число. Определите,есть ли среди цифр задуманного числа одинаковые.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.