сервис вопросов и ответовДано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных
5-9 класс|
|
данных: 123 121 122 Пример выходных данных: Нет Да Да
Warface122
16 дек. 2016 г., 8:40:17 (7 лет назад)
Ангелина0704197200
16 дек. 2016 г., 11:25:09 (7 лет назад)
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 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.
Простой вариант(выводится ошибка если цифр больше или меньше трёх!):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Даю 2 варианта, так-как незнаю,проходили ли вы функцию "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
Ответить
Другие вопросы из категории
Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 8-битном коде, в 16-битную
кодировку Unicode. При этом информационное сообщение увеличилось на 2048. Каков был информационный объём сообщения до перекодировки?
Помогите пжл !!!
Часть речи , которая указывает на предметы , признаки и количества, но не называет их ...
что это ??
1) Что из ниже перечисленного можно отвести к средствам хранения звуковой(аудио) информации:
а)учебник по истории б)вывеска с названием магазина в)журнал г)кассета с классической музыкой е)газета д)журнал
2)К визуальной можно отнести информацию , которую получает человек воспринимая: а)запах духов в)графические работы в)раскаты грома г)вкус яблока д)ощущение холода
3)Информационный процесс -это а)хранение информации б)обработка информации в)передача информации г)действия,выполняемые с информацией д)передача информации источникам
Читайте также
Дано трёхзначное число. Напишите программу, которая определяет:
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Дано трехзначное число. напишите программу, которая определяет:
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
Вы находитесь на странице вопроса "Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.