Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
llRosell
15.10.2022 06:41 •
Информатика
Составить программу, определяющую, является ли данное утверждение истинным: двузначное число а начинается на 3 составить программу, определяющую, является ли данное утверждение истинным: ровно одно из чисел а и в не превышает 100
Показать ответ
Ответ:
JanaKay
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 оценок)
Популярные вопросы: Информатика
vikamorgunova0
06.01.2023 19:55
Отгадайте ребус задание на фото ...
raxievali
03.03.2021 17:08
РЕШИТЬ В ПИТОНЕ Программа переводит целое число секунд s в запись типа: «x1 месяц х2 день х3 час х4 минута х5 секунда». На входе: целое число секунд s. На выходе: строка,...
mrnaruto004ovx0o3
07.09.2020 09:02
Задание 1. По блок-схеме восстановите условие задачи, составьте математическую модель, программу и протестируйте её. 1. Постановка задачи 2. Математическая модель формулы...
savvakuratov2005
07.12.2021 00:51
Нужно построить блок-схему для по информатике.посчитать количество чисел кратных 9 и оканчивающихся на 5, диапазон 1-500...
mrmistik41
07.12.2021 00:51
Информатика. 1. содержание информационных процессов в живой природе? 2. в чём состоит аналогия между поведением машин и живых организмов? 3. какая разница между мозгом...
Хелена007
08.05.2022 17:08
Как нарисовать оленя в pascal abc ?...
Aleks19102007
02.09.2022 06:31
Мама испекла 28 пиражков дети сьели 15 пиражков на сколько пирожков больше сьели чем осталось как решать полностью...
Djama1234
02.09.2022 06:31
Заполните таблицу координата точки 2 на 5 ед влево...
двоищник3
02.09.2022 06:31
Запишите выражение и найдите его значение с предложения 1) к сумме чисел-4,2и6целых 1 третий прибавьте -2,8...
together43
02.09.2022 06:31
Put the verbs in the sentences in the right tense and voice. 1.john (do) his homework at the moment. 2.mr.brown is absent. he (go) to exeter. 3.water (boil) at 100 degrees....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.