Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Sanisle
26.04.2022 14:47 •
Информатика
Пользователь вводит натуральное число. программа определяет, есть ли среди его цифр единица. (через паскаль)
Показать ответ
Ответ:
юличеноккалина
27.08.2020 01:53
Var
x: integer;
f: boolean = false;
begin
write('Введите число = ');
readln(x);
while (x<>0) do
begin
if (x mod 10 = 1) then
begin
f := true;
break;
end;
x := x div 10;
end;
if f then
writeln('Есть')
else
writeln('Нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kopek
03.12.2020 07:32
Напишите программу где после решения допустим по он из дж сразу переводит в кдж...
yanzabelina
12.01.2021 05:08
Команданың атқаратынқызметін анықтаңыз *всегдаОКоманда тек қана шарт ақиқатболған жағдайда ғана команданыорындайдыҚұрамына констукцияларенгізілген командалардың шексізорындауына...
pankivk
18.12.2020 03:58
4. Рассмотрите блок-схему. Запишите данный алгоритм на языке программирования....
TanushaGuda
19.12.2020 16:59
6. Какой из ниже перечисленных форматов файлов является векторным?1) .png2) .gif3) .mwf4) .ipeg...
brody96
23.05.2021 20:18
Кто умеет выполнять задания на командной строке? Создать бат файл и что бы выполнял след.задания... - при нажатии на клавишу F запускал на выполнение утилиту, предназначенную...
Натали2004абвг
01.01.2021 07:38
Составьте алгоритма для чертежника по рисунку. Первый алгоритм должен быть сместиться в точку, а второй сместиться на вектор...
vitaliysv200313
30.12.2022 12:17
Сканируется цветное изображение размером 35,56×35,56 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 32 бита. Какой информационный объём будет иметь полученный...
Брежний
17.12.2020 05:41
Якби ти знав, як много важить слово, одно сердечне, теплеє слівце твір 8-10 речень іть будь-ласка))...
Водород56
17.12.2020 05:41
На малювати як узагородці розсадити 5зайців щоб біля кожної з чотирьох стінок сиділо по 2 зайці...
Dashka2005Dashka2005
17.12.2020 05:41
Сумма коэффициентов в уравнении реакции: h2o+no2+o2- hno3 равна 11; 13; 15;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: integer;
f: boolean = false;
begin
write('Введите число = ');
readln(x);
while (x<>0) do
begin
if (x mod 10 = 1) then
begin
f := true;
break;
end;
x := x div 10;
end;
if f then
writeln('Есть')
else
writeln('Нет');
end.