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

Question

Информатика

Реелика

18 ноября, 14:35

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

+2

Ответы (1)

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

Цветелина · Answer 1

Var a:integer; beginWriteln ('Введите число') ; Readln (a) ; If a mod 3 = 0 thenIf a mod 5 = 0 thenWriteln ('Данное число делится и на 3 и на 5') elseWriteln ('Данное число не подходит') elseWriteln ('Данное число не подходит') ; end.