Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
василий0086
22.06.2020 16:25 •
Информатика
Дано натуральное число n (n больше 9). найти цифру десятков в нём. например, для n = 4876 ответ- 7, для n- 19 ответ-1
Показать ответ
Ответ:
samat314
21.07.2020 16:19
Begin
var n := ReadInteger;
Assert(N > 9);
Writeln('Число десятков равно ', n mod 100 div 10);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
matievskaya79
19.06.2020 21:11
Составить программу вычисления значения функции на языке С ++. >...
winnikrolikov
04.04.2023 06:57
1. Составить таблицу (10 сотрудников) - ФИО- Возраст- Пол (м, ж)- Должность- Дата начала трудового стажа- Текущая дата (16.06.2020)- Оклад- Расчет налога на доход (оклад*13%)- Расчет...
vmusatova2001
03.05.2020 03:29
Можно ли поставить новую видеокарту в IMAC 2014 27 дюймов . И вообще что там с прокачкой ,что можно заменить ...
соникна
02.02.2020 08:06
Определите значение переменной b после выполнения данного алгоритма: a := –5; b := 4; a := 6 * b; b := 2 * a – b*7; b := a + b; Дан фрагмент линейного алгоритма: а:=5; b:=4*а + 1;...
darishka67854321
24.01.2021 21:03
Задание. Составьте маску файлов....
mirt10
05.03.2021 06:09
Выберите величины, которые могут изменяться при выполнении Глубоководным Роботом алгоритма «Найди сокровища» 1. глубина погружения 2. координаты погружения 3. наличие сокровищ 4. имя...
лиза2291
16.03.2020 21:14
Детально розроблений план створення призентації....
1011021031041051
04.04.2020 05:32
Используя меню Сервис – Каталог в OpenOffice Writer, выясните, как вставляются в формулу буквы греческого алфавита: α β γ δ μ η ϕ λ π σ...
AgataKlemen03
23.06.2022 05:49
Составить программу, которая удваивает все двузначные четные числа и печатает их...
FREDDY2017
30.07.2021 04:08
Составьте программу. из города а одновременно выехали две машины, первая в город в, вторая в город с. известны расстояния между а, в и с и скорости машин. определите, какая из машин...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n := ReadInteger;
Assert(N > 9);
Writeln('Число десятков равно ', n mod 100 div 10);
end.