ОПРЕДЕЛИТЬ ЧИСЛО ПОЛУЧЕННОЕ ВЫПИСЫВАНИЕМ В ОБРАТНОМ ПОРЯДКЕ ЦИФР ЗАДАННОГО ТРЕХЗНАЧНОГО ЧИСЛА ДЕЛФИ

Для определения числа, полученного выписыванием в обратном порядке цифр заданного трехзначного числа в 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

Реклама
Новое
Реклама