Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Абдусатор
14.04.2023 07:40 •
Информатика
Составить программу, определяющую, является ли данное утверждение истинным: двузначное число а начинается на 3 составить программу, определяющую, является ли данное утверждение истинным: ровно одно из чисел а и в не превышает 100
Показать ответ
Ответ:
помаги116
14.07.2020 19:39
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Potterhead01
05.06.2020 14:13
Решите по программированию в паскаль 1) какое число баранов на d баранов больше чем 18 баранов? 2) дана площадь s окружности. найти ее радиус...
samsung4652534832
07.09.2022 16:16
Вставьте пропущенные слова ….- химические вещества потребность организма в которых от сотен граммов до сотен миллиграммов Установите соответствие. Железо ✨Необходимо для Фтор ✨Производства...
alina0000000p
20.05.2022 14:54
Эссе как я вижу свою специальность (it) ...
znanija114
13.01.2023 03:40
Дано число 6А590 в десятичной системе счисления. Разделите это число на 12 в десятичной системе, результат запишите в восьмеричной системе счисления...
натали200652
16.05.2022 11:46
Здравствуйте где можно найти хорошую биржу если я новичок изнаю css,html и js...
karinayackupow
09.05.2020 06:27
Какие правило в CSS позволяют определять кодировку символов в таблице стилей?...
raminowka
29.10.2021 20:19
ПИТОН .Напишите программу нахождения минимального числа из 3х заданных чисел a, b и c. В ПИТОНЕ...
leijlalirva
11.01.2022 09:45
Чем лучше мы владеем языком, чем богаче, точнее, ярче наш язык, тем лучше мы выражаем свои мысли лучше общаемся. подобрать доказательство к этому. ....
КамиLLочка
11.01.2022 09:45
:из точки а и из точки б выехали два автобуса, расстояние между ↔автобусами 200 км, скорость первого автобуса 30 км/ч, скорость второго 32 км / ч автобусы едут 2 часа. какое расстояние...
Ангелина8394
11.01.2022 09:45
Найди слова в которых все согласные мягкие торт митя пруд котик пальто...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
end.