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

Question

Пиппа

27 ноября, 10:14

+2

Ответы (1)

Знаете ответ?

Бронута · Answer 1

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.