Question

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

Answer 1

var
n: Integer;

begin
Write('Число: ');
readln(n);
if (n > 9) and (n < 100) then
begin
n := n div 10;
WriteLn('Первая цифра числа - ', n);
end
else
WriteLn('Число не 2-хзначное');
end.

Answer 2

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

pascalCopy code
program FirstDigit;

var
  number: integer;
  firstDigit: integer;

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

  // Проверка на двузначность числа
  if (number < 10) or (number > 99) then
  begin
    writeln('Введенное число не является двузначным.');
  end
  else
  begin
    // Вычисление первой цифры
    firstDigit := number div 10;

    // Вывод результата
    writeln('Первая цифра: ', firstDigit);
  end;
end.

Просто скопируйте этот код в среду программирования Pascal и выполните его.