Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
кристина2156
06.09.2020 14:35 •
Информатика
Впаскале. дано натуральное число n. определить, на сколько сумма первой и последней цифр заданного числа меньше произведения первой и последней цифр этого же числа.
Показать ответ
Ответ:
RDD1
06.10.2020 10:42
Var
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn(n*c-(n+c))
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Fatima0952006
25.04.2023 11:21
Вопрос по sql нужна вставьте пропущенный оператор, чтобы получить все столбы изcustomers таблицы 2) напишите инструкцию, которая будет выбирать city столбец из customers...
Настька1210
21.03.2022 16:22
Определите результат в ячейке E1 *...
asdfghjkl107
27.04.2021 17:51
Составьте словесное уравнение реакции взаимодействия цинка с разбавленной соляной кислотой. (1) (b) Какой газообразный продукт выделится в данной реакции и как доказать...
linashilova00
02.04.2020 10:15
Напишите программу а+б=9...
tbbkc
06.08.2022 18:40
IV. Schreib im Plural 1. Die Suppe2. Der Teppich3. Das Geschenk4. Das Brot5. Das Auge6. Der Zug...
uvalievnursulta2
06.08.2022 18:40
1-тапсырма. Берілген мәтіннен етістерді тауып, семантикалық кар- аrе орналастырыңдар.Кысқа ғана уақытта Астана қаласында жаңадан салынғансеулетті ғимараттарға таңырқанбаған...
BarcelonaReal
16.04.2022 23:38
5. «Гомерлік кезеңнің» басты жаңалығы неде?...
Askmay
02.06.2022 02:02
3. Микены өркениетіне тән археологиялық деректердің қорын (тізбегін) жасаңдар....
vikapuzya200
25.03.2023 00:16
Машина проехала 70 км. Это составляет 2/5 части всего пути. Определите сколько километров составляет весь путь. *...
Railyna
25.10.2020 20:43
Ребят я в отчаиние информатика 8-го класса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn(n*c-(n+c))
End.