Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
fox2055
30.01.2021 03:06 •
Информатика
Паскаль составьте программу определяющую разность цифр данного двузначного числа n
Показать ответ
Ответ:
Katre678556
08.10.2020 05:55
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
write(n mod 10-n div 10);
end.
0,0
(0 оценок)
Ответ:
диана128
08.10.2020 05:55
Var n,a,b:Integer;
begin
Read(n);
a:= n div 10;
b:= n mod 10;
WriteLn(a-b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
violettakot01
17.06.2020 05:22
На сканере с максимальной разрешающей и глубиной цвета 24 бита отсканировали фотографию размером 3 на 4 дюйма. Определите размер полученного файла, если сканировали с максимально...
фрешграфф
11.01.2022 20:38
Для хранения растрового изображения размером 164×164 пикселей отвели 16 КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
dashaananasic18
14.02.2020 22:42
Скільки елементів може бути вказано ліворуч від символу := в операторі присвоєння? А) один б) два в) скільки завгодно только сегодня...
Starbiliya2003
22.12.2021 10:40
Алфавит русского языка состоит из 32 букв (если не различать е и ё, ь и ъ), включая промежуток между буквами. Вычислить энтропию однобуквенного текста, считая вероятности...
Augustine1234ma
28.03.2020 15:32
Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE — в противном случае. Заданное натуральное число N...
Egor222222222
25.08.2021 13:35
Ребята ! Буду очень благодарна) 1.Назовите альтернативные ПО по созданию презентации.В чём их отличия? 2.Основные принципы создания современной презентации. 3.По каким принципам...
mangle56
22.07.2022 19:23
ребята , поэтапно объяснить как решать задачи в EXCEL? буду очень благодарна. ниже прикреплю примеры задач. нужно объяснить 2 и 4...
DashuliaKopaeva
01.12.2022 21:44
1вывести 10 раз слово рота в столбик 2 вывести квадраты всех целых чисел от0 до а ( значение а вводится с клавиатуры) 3 найти произведение всех целых чисел от 1 до 7...
nn814921
01.12.2020 09:40
Запишите в славянской системе числа 15,25,38,137,596...
школьник62728474щ3
01.12.2020 09:40
Чему равна сумма чисел 13 в 8 и 13 в 16? результат запишите в двоичной системе счисления....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
write(n mod 10-n div 10);
end.
begin
Read(n);
a:= n div 10;
b:= n mod 10;
WriteLn(a-b);
end.