Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
milknastas
24.04.2020 22:54 •
Информатика
Напишите линейную программу в результате выполнения которой в целочисленной переменной s получится перевернутое целое четырехзначное число k.например: если k=1357, то s=7531
Показать ответ
Ответ:
Анджела1080
02.10.2020 06:08
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
serofimtimoxa
06.10.2022 15:07
Скодом, дан текст произвольной длины, оканчивающий точкой. текст состоит из слов, разделенных проблемами. подсчитать: количество слов, начинающихся с буквы к....
marelmrub
10.02.2022 13:52
На языке программирования turbo pascal, используя цикл с предусловием, цикл с постусловием и цикл с счетчиком, напишите программы, вычисляющую факториал числа, введённого с клавиатуры....
ольга1716
26.01.2023 08:39
В1626 году индейцы продали остров манхеттен за 20 долларов. если бы эти деньги были помещены в банк на текущий счет и ежегодный прирост составлял x%, какова была бы стоимость капитала...
эма24
26.01.2023 08:39
1). от каких характеристик компьютера зависит его производительность? 2)информационный объем какого порядка имеют: гибкие диски, винчестеры, cr-rom,dvd-rom? 3). какие устройства...
leshchenko1234
26.01.2023 08:39
1)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов,равных 1. 2)массив a[1..10]заполните...
АлександрСмуглиенко
14.06.2020 20:24
Досконалими давні греки називали числа, що дорівнюють сумі всіх дільників, окрім самого числа (6=1+2+3). Складемо програ- му для перевірки, чи є введене число досконалим. Загальний...
tatyanapaderina
08.03.2023 20:02
Який іменник підходить до дієслова стрибати?...
ролимов
08.03.2023 20:02
Переделайте вопросы из обычного в специальный do you read any newspaper? who is your best friend? what music do you like listening to? и из обычного в общий do you read any magazines?...
olmilevskaya1
08.03.2023 20:02
Как образовываются (слово для примера: быстро)...
TurboDan
08.03.2023 20:02
Задайте специальные вопросы. there is some water in the bottle there is some juice in the glass there are some sweets in the bag there are some bananas in the basket...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.