Составьте математическую модель, и программу, проверяющую, является ли число, введенное с клавиатуры четным или кратным 6. (паскаль)

Question

Информатика

Никаха

16 июня, 09:19

Составьте математическую модель, и программу, проверяющую, является ли число, введенное с клавиатуры четным или кратным 6. (паскаль)

+4

Ответы (1)

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

Станя · Answer 1

Var a:integer;

begin

write ('Введите число а = ') ; readln (a) ;

if a mod 2 = 0 then writeln ('Число ', a,' четное') else writeln ('Число ', a,' нечетное') ;

if a mod 6 = 0 then writeln ('Число ', a,' кратно 6') else writeln ('Число ', a,' не кратно 6') ;

end.