ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.
1) <span>122 (8) = 82 (10)
</span>1A9 (16)<span> = 425 (</span><span>10)
</span><span>35.2 (6) = 23.33 (<span>10)
2) а) </span></span>11000100 (2)<span> = 304 (</span><span>8)
</span>11000100 (2) = C4 (<span>16)
</span> б) 110000 (2) = 60 (8)
110000 (2) = 30 (16)
в) <span>111000000110101 (2) = 70065 (8)</span>
111000000110101 (2) = 7035 (<span>16)</span>
На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8