Представим данное число в десятичном виде:
25*a+5*b+c=64*c+8*b+a
63*c+3*b-24*a=0
Теперь просто подбираем a,b,c так, чтобы они были меньше 5 и соответствовали равенству.
c=1
b=3
a=3
То есть в пятеричной системе счисления это число будет равно 331, в восьмеричной - 133, в десятичной - 91.
Ответ сколько угодно в зависимости от того кто составлял, но если интересует минимальное количество то дабы закодировать 25 символов нам понадобится минимум 5 бит 2^5=32, меньше мы просто столько же не закодируем, следовательно каждый символ в таком алфавите будет весить минимум 5 бит
Var a,V,S:integer;
Begin
writeln('Enter A:');
readln(a);
V:=a*3;
S:=6*2*a;
writeln('V=',V,'; S=',S,';');
end.
var a,b,sum,dob,raz:integer;
Begin
writeln('Enter A:');
readln(a);
writeln('Enter B:');
readln(b);
sum:=abs(a)+abs(b);
raz:=abs(a)-abs(b);
dob:=abs(a)*abs(b);
writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');
<span>end.</span>
Word; Real; Boolean; Boolean; ShortInt; ShortInt; Real; Real
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.