Войти
Регистрация
Спроси 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 дюйма. Определите размер полученного файла, если сканировали с максимально...
bebe9
03.08.2020 06:55
Всем привет! Хотел создать файл с расширением .bat в котором с он выводил определённое сообщение. Я писал естественно на русском. Но вместо того чтобы выдать мне в cmd на...
фрешграфф
11.01.2022 20:38
Для хранения растрового изображения размером 164×164 пикселей отвели 16 КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
dashaananasic18
14.02.2020 22:42
Скільки елементів може бути вказано ліворуч від символу := в операторі присвоєння? А) один б) два в) скільки завгодно только сегодня...
Starbiliya2003
22.12.2021 10:40
Алфавит русского языка состоит из 32 букв (если не различать е и ё, ь и ъ), включая промежуток между буквами. Вычислить энтропию однобуквенного текста, считая вероятности...
динка84
11.02.2022 16:29
Введите с клавиатуры четыре числа. найдите и выведите н экран сумму и произведение тех чисел, значения которых отрицательны....
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...
makc59p0dpo2
13.08.2020 10:41
Задание: Максимум Напишите программу, которая считывает два натуральных числа a и b и выводит наибольшее значение из них.Можно использовать арифметические знаки (Например:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.