Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Dasha142nikolaeva
19.02.2021 15:28 •
Информатика
Дано целое неотрицательное число n, определите число десятков в нем (предпоследнюю цифру числа). если предпосленей цифры нет, то можно считать, что число десятков равно нулю. (напишите программу для решения в pascal.abc)
Ответ:
Мишa1
14.08.2020 11:37
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Irina1357
14.10.2021 05:02
СОР по информатике Выявите беспроводные каналы связи сети WI-FIВерных ответов: 41. Операционная система Windows2. Дисковод3. Принтер, Сканер4. Оперативная память5....
настена26258
19.05.2021 05:39
21 бит в байты С решением...
пупсик145
15.09.2020 23:52
Кснаре какое правильное слово ...
mishakukla
14.10.2020 23:34
С какого инструмента была выполнена операция, показанная на рисунке? ответ введите в числовой форме....
Tupayagirl1
11.10.2022 19:11
Какими преимуществами обладает компьютерный словарь по сравнению с бумажным словарем? ответ введите строчными буквами, без пробелов, в алфавитном порядке. а) мгновенный...
missmekhtiyeva110803
07.05.2023 01:11
Напиши программу на языка программирования Python. Дана строка состоящая из латинских букв A=’SSSaASssdfg’ . В этой строке удалите все буквы ‘S’ и выведите полученную...
nagibala09Никичан
04.01.2021 14:30
Введите число. Если оно больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза....
soffffa0790
30.07.2021 00:42
Задание 2 ( ). Заполните таблицу пятью примерами искусственных информационных процессов, протекающих в системах. Биологические системы Технические системы Человек...
fatima6969
25.06.2021 03:00
Есть программа: winners = 0 for ticket in 345, 19, 87, 1020, 421: if ticket % 5 == 0: print(ticket, - Повезло ) Надо сделать так, чтобы при её выводе в консоль выводились...
3035111236
25.05.2023 12:04
Составить алгоритм и блок схему нахождения произведения отрецательных значений функции y=100+x^3,если x€[-50;50]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.