Можно воспользоваться функцией <span>UpCase</span> или сделать 33 if'а.
2 байта = 2*8 бит = 16 бит = 16 разрядов
Const
n = 30;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i], ' ');
if ((i mod 2) = 1) and ((a[i] mod 2) = 0) then s := s + a[i]
end;
Writeln(#13#10, 'Сумма найденных элементов ', s)
end.
Тестовое решение:
Исходный массив
49 -39 -17 6 24 38 20 50 6 -36 -4 -7 -31 41 -8 20 32 49 -48 -47 50 48 -41 -44 -26 -11 9 38 -24 -34
Сумма найденных элементов 22
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
Var x,y1,y2,y3:real;
begin
readln(x);
y1:=exp(ln(x)*8);
y2:=exp(x-2)*(x-5);
y3:=sin(x-5);
writeln(y1:5:3,' ',y2:5:3,' ',y3:5:3);
end.
Пример:
1.8
<span>110.200 -2.620 0.058</span>