Используя признаки делимости, написать программку в паскале, которая инспектирует, делится ли

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

Задать свой вопрос
2 ответа
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
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт