проверить делится ли введенное с клавиатуры число х на 2,3,5 паскаль

Question

Информатика

Корнила

14 февраля, 22:57

проверить делится ли введенное с клавиатуры число х на 2,3,5 паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Семенка · Answer 1

Var a: integer;

begin

write ('Введите число: ') ; read (a) ;

if (a mod 2 = 0) then writeln ('Число делится на 2') ;

if (a mod 3 = 0) then writeln ('Число делится на 3') ;

if (a mod 5 = 0) then writeln ('Число делится на 5') ;

if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно') ;

end.