Ученные решили собрать компьютер и использовать в качестве разрядов системы счисления члена ряда фибоначчи которые вычисляют по правилу: f[0]=0,f[1]=1,f[i]=f[i+1]+f[i-2],где i=2,3,4, натуральное число можно представить в виде суммы этих чисел,например: 7=5+2,33=21+8+3+1 и так далее. написать программу которая по введенному натуральному числу будет выводить кодовое число в двоичной системе счисления(цифры 0 и 1),где в соответствующей позиции n,начиная справа 1,если число с номером n присутствует в сумме,иначе 0.
формат входных данных
входной файл содержит одно натуральное число -- n (0
формат входных данных
единственная строка выходного файла должна содержать одно кодовое число
var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.
№2
var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.
№4
var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;
writeln('Сумма введенных чисел: ', sum);
end.
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
4) F =(1v(AvB))v((AC)&1)
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1