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