Напишите программу, которая вводит трёхзначное число и десятичную цифру.
Var n,m:integer;
begin
write(‘Число = ‘); readln(n);
write(‘Цифра = ‘); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln(‘Цифра есть’)
else writeln(‘Цифры нет’);
end.
Пример:
Число = 519
Цифра = 5
Цифра есть
begin
readln(x, y);
writeln(‘a = ‘, (3 + power(e, y — 1)) / (1 + sqr(x) * abs(y — tan(x))));
end.
Правильный ответ — суббота.
Потому что: Кристина врёт во вторник, четверг, субботу, воскресенье. Получается, в она сказала это в субботу и соврала, потому что на следующий день (воскресенье) она не будет говорить правду.
Напишите программу которая вводит трехзначное число и десятичную цифру определить входит ли эта
Вопрос по информатике:
Напишите программу, которая вводит трёхзначное число и десятичную цифру. Определить, входит ли эта цифра в десятичную запись введённого числа.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- 01.06.2017 17:45
- Информатика
- remove_red_eye 12291
- thumb_up 37
Ответы и объяснения 1
Var n,m:integer;
begin
write(‘Число = ‘); readln(n);
write(‘Цифра = ‘); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln(‘Цифра есть’)
else writeln(‘Цифры нет’);
end.
Пример:
Число = 519
Цифра = 5
Цифра есть
- 02.06.2017 07:41
- thumb_up 30
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Напишите программу, которая вводит трёхзначное число и десятичную цифру?
Напишите программу, которая вводит трёхзначное число и десятичную цифру.
Определить, входит ли эта цифра в десятичную запись введённого числа.
Var n, m : integer ;
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln(‘Цифра есть’)
else writeln(‘Цифры нет’) ;
Трёхзначное десятичное число оканчивается цифрой 3?
Трёхзначное десятичное число оканчивается цифрой 3.
Если эту цифру переместить на первое слева место в числе, то есть с неё будет начинаться запись нового числа, то это новое число будет на единицу больше утроенного исходного числа.
Найдите исходное число.
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4?
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4.
Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000.
Введённые числа не превышают 30 000.
Программа должна вывести одно число : количество трёхзначных чисел, кратных 4.
Напишите программу в паскале пожайлуста.
Информатика 5?
Напишите программу, которая вводит трёхзначное число и десятичную цифру.
Определить, входит ли эта цифра в десятичную запись введённого числа.
Напишите программу, которая в последовательности целых двузначных чисел определяет сумму чисел, не имеющих цифру 6?
Напишите программу, которая в последовательности целых двузначных чисел определяет сумму чисел, не имеющих цифру 6.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Напишите программу, которая считает сумму цифр введённого числа?
Напишите программу, которая считает сумму цифр введённого числа.
Спасибо, кто поможет.
Срочно нужна помощь с С + + ?
Срочно нужна помощь с С + + !
Напишите программу, которая определяет, верно ли, что введённое число – трёхзначное.
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4?
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4.
Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000.
Введённые числа не превышают 30 000.
Программа должна вывести одно число : количество трёхзначных чисел, кратных 4.
Напишите программу которая вводит трехзначное число и , , вырезает » из него 1 и последнюю цифру?
Напишите программу которая вводит трехзначное число и , , вырезает » из него 1 и последнюю цифру.
Напишите программу которая вводит четырехзначное число и , , вырезает » из него 1 и последнюю цифру?
Напишите программу которая вводит четырехзначное число и , , вырезает » из него 1 и последнюю цифру.
Составьте программу, которая определяет, является ли сумма цифр введенного целого трёхзначного числа чётным числом пример ввода : 567 пример ввода : сумма цифр числа 567 — чётное число?
Составьте программу, которая определяет, является ли сумма цифр введенного целого трёхзначного числа чётным числом пример ввода : 567 пример ввода : сумма цифр числа 567 — чётное число.
На этой странице находится вопрос Напишите программу, которая вводит трёхзначное число и десятичную цифру?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 — 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Как то так / / PascalABC. NET 3. 3, сборка 1573 от 04. 11. 2017 / / Внимание! Если программа не работает, обновите версию! Begin var i : integer ; var ur1 : = ReadReal('ur1 = ') ; var ur2 : = ReadReal('ur2 = ') ; var p : = ReadReal('p = ') ; for..
1. действие в скобках 2. Инверсия 3. Конъюнкция 4. Дизъюнкция.
Program sqrt ; var a, b : integer ; begin write('Введите N : ') ; read(a) ; b : = sqrt(100 + sqrt(98 + sqrt(96 + a + sqrt(2)))) ; writeln('Результат — ', b) ; end.
3 / 256 Мбайта = 1024 * 3 / 256 Кбайт = 12 Кбайт = 12 * 1024 байт = 12 * 1024 * 8 бит Память для одного символа = 12 * 1024 * 8 / 6144 = 16 бит Мощность алфавита = 2 ^ 16 = 16384.
Пользавателей которые зарегестрированны в почтовом индексе.
Это матрица, элементами которой являются 0 или 1.
Вот, этого нарисуй, там изи, получается в итоге норм.
Var S, tmp : real ; n, i : integer ; begin write('Введите n : ') ; readln(n) ; for i : = 1 to n do begin tmp : = 1 / ((2 * i + 1) * 3) ; S : = S + tmp ; end ; writeln(S : 8 : 10) ; readln ; end.
/ / PascalABC. NET begin write('Длина меньшей стороны : ') ; var a : = ReadlnReal ; writeln('Длина диагонали равна ', sqrt(a * a + 9 * a * a) : 8 : 3) end.