Const n=12;
var c : array[1..n] of integer;
i : integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('c[',i,']=');
readln(c[i]);
end;
writeln;
for i:=1 to n do write(c[i],' ');
end.
Пример:
<span>Исходный массив:
c[1]=15
c[2]=78
c[3]=20
c[4]=94
c[5]=37
c[6]=41
c[7]=72
c[8]=55
c[9]=86
c[10]=29
c[11]=89
c[12]=13
15 78 20 94 37 41 72 55 86 29 89 13</span>
Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>
Var
x,x1,x2,s: integer;
begin
write('Введите x1:');readln(x1);
write('Введите x2:');readln(x2);
//ищем сумму цифр этих чисел
x:=x1 div 100; s:=s+x;
x:=x2 div 100; s:=s+x;
x:=x1 div 10 mod 10; s:=s+x;
x:=x2 div 10 mod 10; s:=s+x;
x:=x1 mod 10; s:=s+x;
x:=x2 mod 10; s:=s+x;
s:=abs(s);
//Теперь в s сумма цифр введенных x1 и x2
writeln('Сумма цифр ',x1,' и ', x2,' = ',s);
if (s>9) and (s<100) then writeln('Произведение чисел =',x1*x2)
else writeln('Разность чисел = ',x1-x2);
end.
Тест №1
Введите x1:-999
Введите x2:-888
Сумма цифр -999 и -888 = 51
Произведение чисел =887112
Тест №2
Введите x1:111
Введите x2:222
Сумма цифр 111 и 222 = 9
Разность чисел = -111
A. 25, поскольку в 3 действии мы выполняем целочисленное деление и в ответе получаем 2.