Определить, делится ли данное положительное целое число на 3 и на 5.

Question

Информатика

Олимпиада

27 июня, 17:56

Определить, делится ли данное положительное целое число на 3 и на 5.

+2

Ответы (1)

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

Домнина · Answer 1

var s, n, i:integer; d, h:string; begin

writeln ('Введите число') ; Readln (n) ;

if (n mod 3 = 0) and (n mod 3 = 0) then

writeln ('число ', n, ' делится на 3 и на 5')

else

writeln ('число ', n, ' не делится на 3 и на 5')

end.