ОПРЕДЕЛИТЬ ЧИСЛО ПОЛУЧЕННОЕ ВЫПИСЫВАНИЕМ В ОБРАТНОМ ПОРЯДКЕ ЦИФР ЗАДАННОГО ТРЕХЗНАЧНОГО ЧИСЛА ДЕЛФИ
Для определения числа, полученного выписыванием в обратном порядке цифр заданного трехзначного числа в Delphi, можно использовать следующий алгоритм:
1. Создать переменные для каждой цифры заданного числа
2. Получить заданное число от пользователя и разбить его на отдельные цифры, присвоив каждой цифре отдельную переменную
3. Склеить цифры в обратном порядке, используя оператор конкатенации («+»)
4. Преобразовать полученную строку в число, используя функцию StrToInt()
5. Результат вывести на экран
var num, ones, tens, hundreds, reversed : integer;begin Write('Введите трехзначное число:'); Readln(num); // получение цифр числа ones := num mod 10; tens := (num div 10) mod 10; hundreds := num div 100; reversed := ones * 100 + tens * 10 + hundreds; // склейка в обратном порядке Writeln('Число, полученное выписыванием в обратном порядке цифр:', reversed); // вывод результатаend;
Тест на Delphi
Программирование в Delphi Урок 3 2 Работа с текстом, строковые функции Length, Pos и другие
Создание таблицы и формы ввода данных - Базы данных в Delphi 7
как ... посчитать количество дат из списка, входящих в диапазон дат в Excel
Уроки Delphi (Делфи) для начинающих с нуля. Урок №1 «Визуальная среда разработки программ»
#6 Программирование в Delphi. Массивы
Delphi Programming Tutorial #42 - Hint Counter