1) Написать программу на языке Паскаль, которая проверяет, является ли введенное натуральное число четным. 2) Написать

Магическая_Бабочка

51

Конечно! Вот подробное решение вашей задачи:

1) Для проверки, является ли введенное натуральное число четным, вы можете использовать следующий код на языке Паскаль:

pascal

program CheckEvenNumber;

var

  number: integer;

begin

  writeln("Введите натуральное число:");

  readln(number);

  

  if number mod 2 = 0 then

    writeln("Введенное число является четным.")

  else

    writeln("Введенное число не является четным.");

end.

Обоснование: Программа использует оператор `mod` для проверки остатка от деления числа на 2. Если остаток равен нулю, то число является четным.

2) Чтобы определить, оканчивается ли введенное натуральное число на цифру, вы можете использовать следующий код на языке Паскаль:

pascal

program CheckLastDigit;

var

  number: integer;

  lastDigit: integer;

begin

  writeln("Введите натуральное число:");

  readln(number);



  lastDigit := number mod 10;

  

  if lastDigit = 0 then

    writeln("Введенное число оканчивается на цифру 0.")

  else

    writeln("Введенное число не оканчивается на цифру 0.");

end.

Обоснование: Программа использует оператор `mod` для получения последней цифры числа (остаток от деления на 10). Если последняя цифра равна нулю, то число оканчивается на цифру 0.