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

Question

Информатика

Саммит

18 ноября, 08:12

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