Для выделения цифр числа воспользуйтесь операциями div и mod для целых типов
Program PascalGuru;
var
cislo: longint;
begin
Write('Vvedite chislo: ');
ReadLn(cislo);
writeln;
while cislo <> 0 do
begin
if cislo > 0 then
write(cislo mod 10);
cislo := cislo div 10
end;
ReadLn;
end.
Похожие записи/страницы:
- Даны файлы f и g, компоненты которых целые числа. В файл s записать сумму компонентов файлов (поэлементно), а в…
- Составить программу, определяющую, в каком из данных двух чисел больше цифры - Pascal(Паскаль)
- Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке…
- В фамилии, имени, отчестве – не более 12 букв, пол указанная прописью М и Ж, возраст от 16 до 35 лет, курс -…
- Найти квадратный корень из числа (число вводится с клавиатуры). Проверить корректность ввода числа - Pascal(Паскаль)
- Определить максимальное среди трех чисел (оператор условий) - Pascal(Паскаль)
- Программа перевода числа из десятичной системы счисления в восьмеричную систему счисления - Pascal(Паскаль)
- Программа перевода числа из десятичной системы счисления в шестнадцатеричную систему счисления - Pascal(Паскаль)