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

Ответы 2

  • program qwerty;var k, a:integer;beginreadln(k);a:=k mod 100;if(a=0) or (a mod 4=0) then write('Да')else write('Нет')end.
    • Автор:

      danica
    • 6 лет назад
    • 0
  • 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
    • Автор:

      mark606
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years