ПОМОГИТЕ!! ПАСКАЛЬ! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 13

Question

ПОМОГИТЕ!! ПАСКАЛЬ! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 13

Экономика

Гость

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

Accepted Answer

var a:integer; begin readln (a); if a mod 2 =0 then writeln ('Четное') else writeln ('Нечетное'); if a mod 13=0 then writeln ('делится на 13') else writeln ('не делится на 13') end.