Question

ЗАДАНИЕ НА ЯЗЫКЕ ПАСКАЛЬ: Написать программу и найти вторую цифру целого трехзначного числа N

Answer 1

Ответ:

var

a : integer;

begin

writeln('Введите трехзначное число');

readln(a);

writeln('Его вторая цифра :', a mod 100 div 10);

end.

Answer 2

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

pascalCopy code
program FindSecondDigit;

var
  N, secondDigit: integer;

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

  // Находим вторую цифру числа N
  secondDigit := (N div 10) mod 10;

  writeln('Вторая цифра числа ', N, ' равна ', secondDigit);
end.

В этой программе пользователь будет приглашен ввести трехзначное число N. Затем программа найдет вторую цифру числа N, используя операции деления и остатка от деления. Результат будет выведен на экран.

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