Question

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

Answer 1

Ответ:

program Test;

var

 n, t: Integer;

 b: Boolean;

begin

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

 ReadLn (n);

 if (n >= 100) and (n <= 999) then begin

   if (n mod 10) mod 2 = 0 then

     WriteLn ('четная')

   else

     WriteLn ('не четная');

 end else

   WriteLn (n, ' - не трехзначное');

 ReadLn;

end.

Answer 2

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

pascalCopy code
program CheckLastDigit;

var
  number: integer;
  lastDigit: integer;

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

  // Определяем последнюю цифру числа
  lastDigit := number mod 10;

  // Проверяем, является ли последняя цифра четной
  if lastDigit mod 2 = 0 then
    writeln('Последняя цифра числа ', number, ' является четной.')
  else
    writeln('Последняя цифра числа ', number, ' не является четной.');

  readln;
end.

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