Последние записи
- Событие по изменению Edit.Text
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
23rd
Июн
Вывод цифр числа в обратном порядке с помощью рекурсии
Posted by obzor under Pascal
Написать рекурсивную процедуру для вывода на экран цифр натурального числа в обратном порядке. Применить эту процедуру ко всем числам из интервала от А до В.
procedure AB(n:integer);
begin
If n<10 then
Write(n) else
begin
Write(n mod 10);
AB(n div 10);
end;
end;
const a=10;
b=100000;
var n:integer;
begin
Randomize;
n:=Random(b+a)+a;
Write(n,' <==> ');
AB(n);
Writeln;
Readln;
end.скорее — тут цикл нужен:
begin
for n:=a to b do begin
Write(n,' <==> ');
AB(n);
Writeln;
end;
