Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
oomasha
10.10.2020 10:55 •
Информатика
Написать программу, которая печатает значение логического выражения (true или false)в паскале: первая и последняя цифры трехзначного числа равны.
Показать ответ
Ответ:
пукимэн228
03.10.2020 07:30
Var
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
end.
0,0
(0 оценок)
Ответ:
egorageev07
03.10.2020 07:30
Var a: integer;
begin
readln(a);
writeln(a mod 10 = a div 100);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Andriyko2033
28.03.2020 02:44
Кенгуру возраста к может прыгать вперед на любое из расстояний от 1 до к. ей нужно,двигаясь по прямой попасть из точки 0 в точку m.сколькими кенгуру может это сделать. длины...
kristinka200000005
16.09.2020 18:24
Нужна программа в pascal и блок-схема из массива а , который сделан рандомом отрицательных и положительных чисел (40 чисел) сделать массив б состоящий из положительных чисел...
Kseniya20071
01.10.2021 00:01
3. укажите отношение для пары «графический редактор и mspaint»: а.) является элементом множества б.) входит в состав в.) является разновидностью г.) является причиной...
Натали2004абвг
01.10.2021 00:01
Создать массив из 5 элементов,заполнить его случайными числами от -3 до 8 и вывести элементы на экран....
karis1
01.10.2021 00:01
Составить программу, которая просит ввести любое число в интервале от 1 до 30, затем подсчитывает произведение чисел кратных 5 в интервале от 0 до введённого числа....
mazasa128
04.11.2020 11:27
Нужно решить на паскале (abc) дано предложение, в котором имеется несколько букв е. найти: а) порядковый номер первой из них; б) порядковый номер последней из них....
rubon
01.10.2022 14:24
Рассчитайте время звучания моноаудиофайла^1, если при 16-битовом кодировании и частоте дискретизации 32 000 его объем равен 3500 кбайт. ^1 режим моно предполагает запись одной...
ГораСлез
01.10.2022 14:24
По стовбуру повзе жук. за ніч він піднімається на 6 м, а за день опускається на 3 м. почавши повзти від основи стовбура, він за п яту ніч доповз до його вершини. яка висота...
doghatashavava
01.10.2022 14:24
Составьте пограмму вычисления суммы 100 первых членов арифметической прогрессии,если а1=5; d=4...
andrew120885p09zsu
08.11.2021 18:30
Файл размером 3 мбайта передаётся через некоторое соединение за 2 минуты 30 секунд. определите размер файла (в мб), за которое можно передать через это же соединение за 50...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
end.
begin
readln(a);
writeln(a mod 10 = a div 100);
end.