В программе описан одномерный целочисленный массив А, в представленном фрагменте программы обрабатываются элементы массива с инд
ексами от 1 до 10.
n := 10; for i := 1 to n do begin A [n+1−i] := 2*A[i] ; end;
Перед началом выполнения фрагмента элементы массива имеют значения соответственно 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, т.е. А[1] = 1; А[2] = 2 и т.д. Укажите значение, которое после выполнения указанного фрагмента программы имеет два или более рассмотренных в этом фрагменте элемента массива. Если таких чисел несколько, укажите наибольшее из них.
1) такого значения нет 2) 10 3) 8 4) 4
ОТВЕТ БУДЕТ 3 МНЕ ПРОСТО НАДО ОБЬЯСНИТЬ КАК ЭТО ДЕЛАТЬ, ПРОШУ ПОМОГИТЕ МНЕ
В ответе напишите букву А, если способ А быстрее или Б, если быстрее способ Б. Сразу после буквы напишите количество секунд, насколько один способ быстрее другого. Так, например, если способ Б быстрее способа А на 23 секунды, в ответе нужно написать Б23. Слов «секунд», «сек.», «с.» к ответу добавлять не нужно.<span><span>Решение </span>Выразим объем документа в битах, выделив в качестве множителя степень двойки.</span><span>10 Мбайт = 10*220 байт = 10*223 бит.</span><span>Время передачи документа бес сжатия (способ Б) T<span>Б = </span>10*223 (бит) : 218 (бит/сек) = 10*25 = 10*32 = 320 (сек). Сжатый файл на 100% - 25% = 75% меньше исходного. Поэтому выигрыш во времени передачи упакованного документа (не считая времени на сжатие и распаковку документа) составляет 0.75*320 = 240 (сек). Учитывая 8+2 = 10 сек, которые требуются для сжатия и распаковки жокумента, способ А быстрее на 240 – 10 = 230 сек.</span><span>Ответ: А230</span><span> </span>
Var x:integer; begin writeln('Введите чилос x: '); readln(x); if x>= 100 then if (not odd(x)) then writeln('TRUE') else writeln('FALSE') else writeln('Число не трехзначное'); <span>end.
Надеюсь правильно понял тебя и составил программу верно.</span>