Question

Написать программу которая находит вторую цифру трехзначного целого числа Паскаль

Answer 1

Ответ:

program z1;

var a: integer;

begin

write('Введите целое трёхзначное число: ');

readln(a);

write ('Вторая цифра числа ',a div 10 mod 10 )

end.

Объяснение:

a div 10 mod 10 - средняя цифра числа

div - целочисленное деление

mod - остаток от целочисленного деления

Answer 2

Вот пример программы на Pascal, которая находит вторую цифру трехзначного целого числа:

pascalCopy code
program SecondDigit;

var
  number: integer;
  secondDigit: integer;

begin
  write('Введите трехзначное целое число: ');
  readln(number);

  if (number >= 100) and (number <= 999) then
  begin
    // Находим вторую цифру с помощью деления и остатка
    secondDigit := (number div 10) mod 10;
    writeln('Вторая цифра числа: ', secondDigit);
  end
  else
  begin
    writeln('Введено неверное число. Пожалуйста, введите трехзначное число.');
  end;
end.

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