Var x: integer; begin writeln('Введите число:'); readln(x); if x mod 2 = 0 then begin writeln('Число является четным.'); if x mod 10 = 0 then writeln('Число делится на 10.') else writeln('Число не делится на 10.'); end else writeln('Число не является четным');end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
