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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.