Question

Используя признаки делимости, написать программу в паскале, которая проверяет, делится ли натуральное число k на 4 (две последние цифры нули или образуют число, делящееся на 4).

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('n=');
  var a:=k mod 10; // поледняя цифра
  var b:=(k mod 100) div 10; // предпоследняя цифра
  if (a=0) and (b=0) or ((10*b+a) mod 4=0) then Writeln('Делится на 4')
  else Writeln('Не делится на 4')
end.

Пример
n= 567264
Делится на 4

Answer 2

Program qwerty;
var k, a:integer;
begin
readln(k);
a:=k mod 100;
if(a=0) or (a mod 4=0) then write('Да')
else write('Нет')
end.

Answer 3

Вот пример программы на Pascal, которая проверяет, делится ли натуральное число k на 4 с использованием признаков делимости:

pascalCopy code
program CheckDivisibility;

var
  k: integer;

begin
  // Вводим натуральное число k
  writeln('Введите натуральное число k: ');
  readln(k);

  // Проверяем признаки делимости на 4
  if (k mod 100 = 0) or (k mod 4 = 0) then
    writeln(k, ' делится на 4')
  else
    writeln(k, ' не делится на 4');
end.

В этой программе мы сначала запрашиваем пользователя ввести натуральное число k. Затем мы используем оператор if для проверки двух условий:

1. (k mod 100 = 0) - это проверяет, являются ли две последние цифры числа нулями.
2. (k mod 4 = 0) - это проверяет, делится ли число на 4.

Если хотя бы одно из этих условий выполняется, программа выводит сообщение о том, что k делится на 4. В противном случае, программа сообщает, что k не делится на 4.