Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lenapanfilova0
09.05.2023 06:48 •
Информатика
Дано трехзначное число.вывести вначале его последнюю цифру(еденицы) затем-его среднюю цифру(десятки)
Ответ:
морол
04.10.2020 14:30
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
Пример
n= 368
86
0,0
(0 оценок)
Популярные вопросы: Информатика
RusskikhDaria
27.05.2020 18:28
Нужно в паскале написать программу с одномерным массивом из десяти элементов, чтоб она находила количество чётных, нечётных и среднее арифметическое. это всё в одной программе....
Сплткнлттаа
27.05.2020 18:28
Дайте 3 совета о защите его здоровья за компьютером...
Sasha670000
17.05.2023 11:38
Что такое мешки букв которых одинаковые...
Reshebnikov
17.05.2023 11:38
Дано целое число. определить кратно ли оно 5...
annajeon58
12.06.2021 11:01
Придумать 2 примера актуальной, но непонятной информации. за раннее...
Екатерина20876
19.08.2021 17:15
Доказать, что информатика относится ко всем типам наук...
Herty22436
24.03.2023 10:24
10.укажіть редактори для опрацювання електронних таблиць. a.microsoft paint b. ms exel c. spreedshets d.corel photo-paint...
Reizon
17.07.2020 23:19
Руководство банка заказало личные шкафчики для своих сотрудников. Шифр от шкафчика – десятизначный двоичный код. При этом руководство сообщило сотрудникам, что в ближайшее время...
Skvaler
21.04.2023 07:22
решить а то 2 за четверть выйдет(((...
janibek01
27.07.2020 03:23
составить блок схему по этому коду Pascal Program n2; Uses crt; Var А,В,i,S: Integer; Begin For i:=1 To 10 do begin S:=i*453; Writeln(i, S/100:6:2) end; Readln End....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите её версию!
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
Пример
n= 368
86