Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Я незнаю прости. может другие помогут
var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
Если какое-то число A в степени n мы переводим в A-ичную систему счисления, то мы получим 1 и n нулей (вытекает из способа перевода чисел из десятичной в а-ичную)
Отсюда:
3^14 в троичной записи = 100 000 000 000 000
3^12 = 1 000 000 000 000
3^3 = 1 000
Считаем, получаем 9 двоек