Question

В паскале написать программу.Если первая (слева) цифра нечетная то вывести 1 ,если четная то вывести 2.Помогите пожалуйста.Даю 10б

Answer 1

uses math;

var  

   a: integer;

begin

   readln(a);

   a := abs(a);

   while a >= 10 do  

       a := a div 10;

   if (a mod 2 = 0) then

       writeln(2)

   else

       writeln(1);

end.

Answer 2

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

pascalCopy code
program CheckFirstDigit;
var
  number, firstDigit: integer;
begin
  // Вводим число с клавиатуры
  write('Введите число: ');
  readln(number);
  
  // Получаем первую цифру числа
  firstDigit := abs(number); // Берем модуль числа, чтобы обеспечить положительное значение
  
  while firstDigit >= 10 do
    firstDigit := firstDigit div 10; // Удаляем последние цифры, оставляем только первую
  
  // Проверяем, является ли первая цифра числа четной или нечетной
  if firstDigit mod 2 = 1 then
    writeln('Первая цифра нечетная: 1')
  else
    writeln('Первая цифра четная: 2');
end.

Эта программа запрашивает у пользователя ввод числа, а затем находит первую цифру этого числа и определяет, является ли она четной или нечетной. Результат выводится на экран. Если первая цифра нечетная, программа выведет "1", если четная - "2".