Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16
Значения с символами $ остается
<em>E4=$C$2*D4</em>
Если какое-то число A в степени n мы переводим в A-ичную систему счисления, то мы получим 1 и n нулей (вытекает из способа перевода чисел из десятичной в а-ичную)
Отсюда:
3^14 в троичной записи = 100 000 000 000 000
3^12 = 1 000 000 000 000
3^3 = 1 000
Считаем, получаем 9 двоек
var s, i, a: integer;
begin
s:=0;
writeln('Введите массу 12 грузов');
for i:=1 to 12 do
begin
read(a);
s:=s+a;
end;
writeln('Масса 12 грузов равна ',s);
end.