Question

Паскаль! Помогите пожалуйста!Дано целое число, больше 99. Найти третью от конца его цифру.

Answer 1

//чем дальше, тем унылее задания.
var n:integer;
begin;
readln(n);
n:=n div 10;
n:=n div 10;
n:=n mod 10;
writeln(n);
end.

Answer 2

Привет! Чтобы найти третью цифру числа, большего 99, нужно выполнить несколько простых шагов. Вот алгоритм, который ты можешь использовать:

1. Преобразуй число в строку, чтобы можно было обращаться к его отдельным цифрам.
2. Получи длину строки (количество цифр в числе).
3. Если длина строки меньше 3, то число не имеет третьей цифры от конца (так как она находится за пределами числа), и можно вернуть ошибку или специальное значение.
4. Иначе возьми третий символ с конца строки (это будет третья цифра числа).
5. Преобразуй полученный символ обратно в число (если требуется).

Вот пример реализации данного алгоритма на языке программирования Паскаль:

pascalCopy code
program FindThirdDigit;
var
  number: Integer;
  numberStr: String;
  thirdDigit: Integer;
begin
  // Ввод числа
  Write('Введите число (больше 99): ');
  ReadLn(number);
  
  // Преобразование числа в строку
  numberStr := IntToStr(number);
  
  // Получение длины строки
  if Length(numberStr) < 3 then
  begin
    WriteLn('Число не имеет третьей цифры от конца.');
    Exit;
  end;
  
  // Получение третьей цифры от конца
  thirdDigit := StrToInt(numberStr[Length(numberStr) - 2]);
  
  // Вывод третьей цифры
  WriteLn('Третья цифра от конца числа: ', thirdDigit);
end.

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