var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Пусть числа записаны в системе счисления с основанием Х, тогда получим:
3х+3+5х=
+х+3
8х+3=
+х+3
-7х=0
х=0 или х=7
Основание системы счисления не может быть равным 0, следовательно пример записан в 7-ричной системе счисления
Устройства, входящие в системный блок:
Материнская плата
Центральный процессор
Оперативная память
Жёсткий диск
Дисковод
Карты расширения
Видеокарта
Звуковая карта
Сетевая карта
Блок питания
Порты компьютера
Внешние устройства:
Клавиатура
Мышь
Сканер
Микрофон
Монитор
Акустические колонки или наушники
<u>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
function gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var a:=ReadArrInteger('Введите 10 натуральных двухзначных чисел:',10);
var g:=gcd(a[0],a[1]);
for var i:=2 to 9 do g:=gcd(g,a[i]);
Writeln('НОД=',g)
end.
<em>Пример</em>
Введите 10 натуральных двухзначных чисел: 38 42 56 82 96 32 18 40 58 90
НОД=2