2. Дана лінійна таблиця, що містить N дійсних чисел (число N вводиться з клавіатури з відповідним додатковим повідомленням, елементами таблиці є випадкові числа з діапазону [-99; B 99]). Відображення елементів таблиці. Визначте мінімальний елемент серед елементів з парними порядковими номерами та максимальний елемент серед елементів з непарними порядковими номерами. Знайдіть їх суму. Виведіть знайдені значення на екран із відповідними повідомленнями.
ответ:Вариант №1 (не совсем удачный, как было отмечено в комментариях).
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var n,i,m:integer;
flag:boolean;
begin
readln(n);
flag:=false;
if (n mod 2<>0)then i:=n-1 else i:=n;
while i>0 do begin
if power(2,i)<=n then begin
write(power(2,i),' '); flag:=true;
end;
i:=i-2;
end;
if not flag then writeln(0);
end.
Тест №1
1025
1024 256 64 16 4
Тест №2
1
0
Вариант №2
var a,i,n: integer;
begin
a:=1;readln(n);
i:=trunc(log2(n)); //получим степень двойки для n
//если i нечетное,
//то первое искомое число получаем путем сдвига влево на i-1 в
//двоичном представлении числа иначе сдвиг на i
if (i mod 2)=1 then a:=a shl(i-1) else a:=a shl i;
//далее получаем числа сдвигая вправо на 2 разряда
//в двоичном представлении числа
while a>=2 do begin
write(a,' ');
a:=a shr 2;
end;
end.
Тестовое решение:
2147483647
1073741824 268435456 67108864 16777216 4194304 1048576 262144 65536 16384 4096 1024 256 64 16 4
Представьте себе, что нам нужно много раз решать одну и ту
же вычислительную задачу при различных исходных данных.
Конечно, хочется один раз «научить» компьютер выполнять все
нужные действия, а потом подставлять новые исходные данные
и сразу получать результат. Для этого придумали электронные
таблицы (табличные процессоры). Так называются программы,
которые хранят все данные в виде таблиц. Но это не просто
таблицы: в ячейках могут храниться формулы, вычисления по
которым выполняются автоматически при любом изменении дан-
ных.
Объяснение:
Вот так?