1. Определите

новый приплод. Сколько кроликов будет через год

program uses crt{Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.}

var k : integer

function f(n:integer):integer

begin if n=0

then f=1

elsey if n=1

then f=2

elsey f=f(n-2)+f(n-1)

end

begin for k=10 to 12 do

writeln(f(k))

redln

end.

1)Перевести двоичное число А в восьмеричную и шестнадцатеричную системы счисления.
А=10001001,1001
2)Перевести в десятичную систему счисления следующее двоичное число
1010101010
3)Перевести десятичное число А в g-e системы счисления.
А=493, g=5;12
4)Перевести десятичные числа в двоичные с точностью до 10\-8
0,2778

средний элемент больше своих "соседей", т. е. предшествующего и последующего. В случае положительного ответа определить номера элементов первой из таких троек.

поля, значение поля, тип поля. Какие бывают типы полей? Какие величины определяет каждый из типов? Пожалуйста напишите подробненько,а то щас ОЧЕНЬ НАДО. завтра сдавать задания по информатике. Сижу уже 1 час ночи засыпаю!!! ЗАРАНЕЕ СПАСИБО!!!

Что нужно изменить в программе, чтобы выполнялось условие задачи.

Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.

элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.

2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.

Помогите пожалуйста!