//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
<span>совокупность знаков с помощь которых записываются числа называется алфавит системы счисления</span>
//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;
16 цветов.
256x1024 байт = 256x1024x8бит = 2097152
1024x512 = 524288
2097152/524288 = 4 бита. Память,для 1 пикселя.
2 в 4 степени - 16.
Эмм, ну 118+1110=1228
теперь чтобы из десятичной перевести в двоичную надо все делить на 2
1228:2=614 ост0
614:2=307 ост0
307:2=153 ост1
153:2=76 ост1
76:2=38 ост0
38:2=19 ост0
19:2=9 ост1
9:2=4 ост1
4:2=2 ост0
2:2=1 ост0
1:2=0 ост 1
пишем результат с конца, получается 10011001100