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

Конечно, я могу помочь вам с этой задачей! Вот программа на языке Паскаль, которая решит вашу задачу:

program CountAndExtractDigits;

var
  number, count, secondDigit: integer;

begin
  writeln('Введите число: ');
  readln(number);

  count := 0;
  secondDigit := -1;

  while number > 0 do
  begin
    count := count + 1;

    if count = 2 then
    begin
      secondDigit := number mod 10;
    end;

    number := number div 10;
  end;

  if count = 1 then
  begin
    writeln('Число однозначное');
  end
  else
  begin
    writeln('Количество цифр в числе: ', count);
    writeln('Вторая цифра с конца: ', secondDigit);
  end;

end.

Эта программа запрашивает у пользователя число, затем считает количество цифр в числе и выводит вторую цифру с конца. Если число однозначное, программа об этом сообщит. Надеюсь, это поможет вам решить задачу! Если у вас есть еще вопросы, не стесняйтесь спрашивать.