Ну, если надо в десятичной системе, то получим:
Яблок =<span>1011₂=11₁₀
Груш = 9₁₆=9₁₀
Всего получим 11+9 = 20 фруктов
</span>
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Program test;
var a,b,c:integer;
begin
readIn(a);
readIn(b);
ReadIn(c);
writeIn(a+b/c+c/a*b);
end.
вроде так
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
1<span>112 - в четверичной системе счисления</span>