Вывод цифр числа на Pascal
Вывод цифр числа.
var x: integer;
begin
write('Введите x: ');
readln(x);
write('Цифры числа x в обратном порядке: ');
while x<>0 do
begin
write(x mod 10,' ');
x := x div 10;
end;
end.
10.02.2015, 09:54 -
Категория: Статьи » Программирование » Pascal
