Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
вера546
19.09.2020 17:12 •
Информатика
Информатики, дано трехзначное число.определить, если в нем нули.
Показать ответ
Ответ:
manzharenko13
03.10.2020 06:28
Var
a:string;
i,n:integer;
Begin
Write('Введите число ');
Readln(a);
for i:= 1 to 3 do
if a[i] = '0' then Begin write('Ноль есть'); n:=1; break; End;
if n<>1 then write('Нулей нет');
End.
0,0
(0 оценок)
Ответ:
hdbhbd
03.10.2020 06:28
Var a : Integer;
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SerenaWilliamsisa
10.07.2022 17:30
Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y -действительные числа) и определяет принадлежность точки заштрихованной области,...
ppppppp0000
14.12.2021 12:35
4. Определите средний по физкультуре. ответ на этот вопрос с точностью не менее 2 знаков после запятой запишите в ячейку H5 таблицы. 5. Определите средний пятиклассников....
kskdosms
30.06.2022 18:58
Какие принципиальные изменения в процесс создания текста внёс компьютер?...
yarik28032001
22.06.2020 09:08
Дан массив, состоящий из целых чисел. напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками....
SkyZee
22.06.2020 09:08
Вычислите общий объем памяти hdd, если число цилиндров с = 285, число головок н = 470, число секторов 5 = 158. ответ округлите до целых чисел....
romakir228
22.06.2020 09:08
Ввести имя, отчество и фамилию. преобразовать их к формату «фамилия-инициалы». ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так...
Свумпик
09.09.2022 07:54
1) каким пользователям киберпространства и мобильной связи полезно быть под постоянным контролем: а) юзерам сети; б) старикам; в) операторам мобильной связи; г) хакерам; д)...
lelyaklochkova
14.01.2022 06:56
Розгадайте,будь ласка,ребус намальований тюлень ,сніжинка, тортик...
хики2
20.02.2022 08:23
Тато хотів купити кавун 3 кг ,а купив п ятикілограмовий ,тому доплатив ще 10грн . Скільки грн коштує кавун решить задачу...
1AnastasiaP
02.05.2020 19:23
2-тапсырма. Суреттерге қарап,спорт пен жаттығу дың пайдасы туралы шағын мәтін құрастырып жаз.Мақал-мәтел:Шынықсаң, шымыр боласың....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:string;
i,n:integer;
Begin
Write('Введите число ');
Readln(a);
for i:= 1 to 3 do
if a[i] = '0' then Begin write('Ноль есть'); n:=1; break; End;
if n<>1 then write('Нулей нет');
End.
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.