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

223

269

Посмотреть ответы 2

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

caxopo4ek

Информатика

4,5(9 оценок)

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.