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

Question

Информатика

Иулия

19 июля, 03:25

Определить, делится ли данное положительное целое число на 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.