Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
spinny9tim
06.12.2022 09:28 •
Информатика
Напишите в паскале. напишите программу, которая по заданному числу вычисляет его вторую цифру справа. input.txt 123 -139 9 output.txt 2 3 0
Показать ответ
Ответ:
Ravik2K
07.10.2020 03:37
Var
a,b,c:integer;
begin
read(a);
b:=a div 10;
c:=b mod 10;
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nnika1015
04.03.2020 02:58
Значения элементов двухмерного массива a[1..100,1..100] с следующего фрагмента программы: for i: =1 to 100 do for k: =1 to 100 do if i k then a[i,k] : = i else a[i,k]...
Nastlerfight
01.03.2020 21:47
Какое значение будет принимать переменная Y после выполнения фрагментов программы?...
MASCAM
16.06.2021 19:14
Как решить ? сколько цветов будет содержать палитра ,если на один пиксель отводиться 4 бита памяти? объясните...
СвятойТапочек
29.09.2021 04:39
Введите три числа. если они могут быть длинами сторон равнобедренного ,подскажите как проверить могут ли быть стороны длинами равнобедренного остроугольного треуг. не...
gulkogulkovno
29.09.2021 04:39
Для записи текста использовался 32-символьный алфавит каждая страница содержит 40 строк по 50 символов в строке .какой объем информации содержит 7 страниц текста?...
21dasha21
29.09.2021 04:39
Отгадайте слово, обозначающее некое понятие информатики. в разных ситуациях оно может употребляться со следующими прилагательными: 1) секретная, научная, ложная, техническая,...
vlad200883
28.06.2022 01:20
Кем и когда был основан город псков...
valentinadeva2p0arnh
28.06.2022 01:20
Решил . токарь готовит на заводе 16 дет. в час. всего он работал 4 часа. а у 2 токаря времени в 2 раза больше. при этом за все время у двоих выходит одинаковый объём работы....
ПолинаТришинкова
28.06.2022 01:20
Кто основал эйфеливу башню? я все свои 23...
2345metal6789
28.06.2022 01:20
Read the pairs of synonyms and choose the odd ones/ 1) a) to say - to tell b) to utter - to whisper c) to cry - to shout d) to exclaim - to explain 2) a) to make - to...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c:integer;
begin
read(a);
b:=a div 10;
c:=b mod 10;
writeln(c);
end.