Question

Ввести с клавиатуры вещественное число.Напечатать в обратном порядке цифры,составляющие это число.Десятичную точку не печатать. Язык программирования - PascalAbc.

Answer 1

Program zz;
var a:integer;
begin
Writeln('Введите число:');
readln(a);
write('Число в обратном порядке:');
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
end.

Answer 2

Вот решение на языке PascalABC:

program ReverseDigits;

var
  number: real;
  integerPart, fractionalPart: string;
  i: integer;

begin
  // Ввод вещественного числа с клавиатуры
  write('Введите вещественное число: ');
  readln(number);

// Преобразование числа в строку
  str(number, integerPart);
  
  // Поиск десятичной точки в строке
  i := pos('.', integerPart);
  
  // Если десятичная точка найдена, отделяем дробную часть
  if i > 0 then
  begin
    fractionalPart := copy(integerPart, i + 1, length(integerPart) - i);
    delete(integerPart, i, length(integerPart) - i + 1);
  end;
  
  // Вывод цифр числа в обратном порядке
  writeln('Цифры числа в обратном порядке:');
  
  // Вывод цифр целой части числа
  for i := length(integerPart) downto 1 do
    write(integerPart[i]);
  
  // Вывод цифр дробной части числа
  if i > 0 then
  begin
    write('.');
    for i := length(fractionalPart) downto 1 do
      write(fractionalPart[i]);
  end;
  
  writeln;
end.

Программа сначала запрашивает ввод вещественного числа с клавиатуры. Затем она преобразует число в строку и ищет позицию десятичной точки. Если точка найдена, программа отделяет дробную часть от целой. Затем она выводит цифры числа в обратном порядке: сначала цифры целой части, затем, если есть, цифры дробной части.