Program p1; var a, b, c: integer; y: real; begin write ('Введите числа >> '); readln (a, b, c); if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then y:=(a+b+c)*2 else y:= a+b+c+10 end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-50,50); a.Println(','); Writeln('Четные элементы: '); var i:=1; while i<n do begin Write(a[i],' '); Inc(i,2) end; Writeln; Writeln('Нечетные элементы: '); i:=0; while i<n-1 do begin Write(a[i],' '); Inc(i,2) end; Writeln end.
Тестовое решение: Количество элементов в массиве: 10 15,-18,-29,-25,46,21,-8,-17,-9,15 Четные элементы: -18 -25 21 -17 15 Нечетные элементы: 15 -29 46 -8 -9
2. Размер цифрового моноаудиофайла измеряется по формуле: A = D*T*i, где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение). 44,1 кГц = 44100 Гц A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт
3. Общее количество символов для записи номеров = 20+10=30 Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32). Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт Для хранения 50 номеров потребуется 50*5 байт = 250 байт
var a, b, c: integer;
y: real;
begin
write ('Введите числа >> ');
readln (a, b, c);
if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then y:=(a+b+c)*2
else y:= a+b+c+10
end.