Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
timekid
27.10.2021 04:50 •
Информатика
Программа предлагает пользователю ввести двузначное число. если пользователь ошибся, то выдать сообщение «вводите только двузначные числа».
Показать ответ
Ответ:
hoggarthtanya
03.08.2020 14:26
В чём заключается вопрос???
0,0
(0 оценок)
Ответ:
Alinalime10
03.08.2020 14:26
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikitarm756
30.07.2022 07:52
Необходимо найти значение следующего выражения: y=6c−(x+23). Словесно-формульным алгоритм решения этой задачи может быть записан в следующем виде: ввести значения ... и x. Сложить...
Lugazat
28.07.2022 20:33
Составить блок-схему алгоритма нахождения x из уравнения 2x + a = c, если а = 5; с = 7...
Melika09
19.07.2020 16:44
ТЕКСТ ЗАДАНИЯ ВРЕМЯ НА ВЫПОЛНЕНИЕ:Укажите разницу между между двумя изображениями....
IBRAGIM058
13.01.2023 22:10
Подготовить сообщение Алгоритмы ветвящейся структуры в языке программирования Python ...
Alon4ik123
05.03.2020 01:53
МАЙНКРАФТ знаю, что не по теме, но как отключить вот эти вот действия в правом нижнем углу...
ahhasamsonova
02.06.2021 15:39
Опиши особенности, марша Черномора: о чем это произведение? как звучит музыка? где бы она могла звучать в жизни и с кем бы ты хотел ее слушать? что переживал композитор,...
arinahomich05
28.01.2020 09:08
Значення окисно відновних процесів у промисловості....
baby2525
28.01.2020 09:08
. Can t we watch the news? (составть из этого диалог,!!) • Do you fancy watching it?• Oh no, I hate reality shows.• Oh no, not that!• Well, I suppose so.• Do you want to watch that...
elizabetfox1222
09.05.2021 10:08
Тіло внаслідок електризації набуло 8-10¹¹ електронів як змінився заряд і маса тіла...
глупыйлолик34
04.09.2021 06:25
Найти температуру кислорода массой 16 кг при давлении 2 · 106 Па, объемом 1,6 · 10-3 м3? M = 0,032 кг / моль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.