Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Черныйкотик007896
29.07.2021 15:57 •
Информатика
Составить программу, определяющую, является ли данное утверждение истинным: двузначное число а начинается на 3 составить программу, определяющую, является ли данное утверждение истинным: ровно одно из чисел а и в не превышает 100
Показать ответ
Ответ:
1234дмит232323
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 оценок)
Популярные вопросы: Информатика
Алинулька11
23.11.2022 19:58
Python. Какие имена переменных можно использовать:Выберите все подходящие ответы из списка12_mномерnumm-12mm_12...
dianapanova2004
08.01.2023 03:42
написать программу на си шарп или паскалеДля строительства требуются доски в количестве не менее А куб.м. Имеются доски 2-х видов. При обработке i-го вида доски получается...
Женечка180510
01.06.2023 03:21
Решите задачу через Exel. С функций суммесли,счетесли и тд. Задача решается с линейного уравнения. На птицефабрике выращиваются куры 3- видов: цыплята до 3-х месяцев,...
KOBPAHET
27.04.2023 09:30
Первые слова маленького брата были мама и папа . какова мощность используемого братом алфавита?...
nazydraganil
29.07.2022 23:06
44 за ответ ! , 1. he производя деления, укажите, каким из данных чисел 11, 15, 21, 30, 36, 55 будет кратно число 30492 . ответ обоснуйте. 2. не находя суммы чисел 293...
деня1990
02.08.2021 23:10
В 6 классе учатся 30 детей. 5 из них не любят читать книги. 15 пятиклассников читают фантастику, 20- научные журналы. Сколько ребят одновременно читают и фантастику,...
12qwerty97
02.02.2022 15:46
Определи с которого был изменен размер круга. Shift + растягивание объекта за крайние точкиCtrl + растягивание объекта за центральные точкиShift + растягивание объекта...
svetik83
13.05.2023 11:32
ребята! - Как вы считаете, важны ли открытия? - Вспомните, о которых открытиях вы слышали. - Пофантазируйте, какие открытия хотели бы осуществить вы. - Что вы использовали...
gasanova683
08.12.2022 06:59
Тип константы определяется записи ее значения. к каким типам данных относятся следующие значения: 2.71 , 1.49, 3 , 314?...
Каралина1000000065
04.06.2021 06:43
Кто может с анимацией объектов cinema 4d?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.