Написать программу в pascal даны целые числа . если в данной последовательности ни одно четное число не расположено после нечетного.то получить все отрицательные члены последовательности иначе-положительное.
181
331
Ответы на вопрос:
var a: array[1..50] of integer; i,f, n: integer;
begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.
3
Объяснение:
Так как частота дискретизации 32 кГц, то за одну секунду запоминается 32000 значений сигнала.
Глубина кодирования – 32 бита = 4 байта, размер файла 48 Мб = 50331648 байт. Время записи определится следующим образом: t = 50331648 / (32000 * 4) = 393 секунд или 6,5 минут, что близко к 6 минутам.
Популярно: Информатика
-
gjvftyGHbgg20.08.2021 21:59
-
zaika2590108.04.2020 08:08
-
Tatyna8319.06.2022 05:15
-
hmelova25.02.2021 00:17
-
0KULLEP010.10.2021 12:02
-
2006adelya21.07.2020 06:38
-
FACE09125.06.2020 10:52
-
шоколадказнаний11.01.2022 21:57
-
esbolat200003.08.2022 18:01
-
Den4ik11tbbbb23.04.2022 19:26