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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
