var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
какой алгоритм линейный, циклическиц или с ветвями?
100011002 = 1∙27+0∙26+0∙25+0∙24+1∙23+1∙22+0∙21+0∙20 = 128+0+0+0+8+4+0+0 = 14
Var
k,fk, k20, count: integer;
function F(x: integer): integer;
begin
if x < 3 then
F := 1
else F := F(x - 1) + F(x - 2);
end;
begin
k20:=F(20);
writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть}
for k := 3 to 50 do begin
fk:=F(k);
if fk=k20 then count:=count+1;
write(fk,' ');
end;
writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально
Десятичной число при переводе из двоичной системы, содержащей 4 бита, это 16.
Если учесть что 0000 - 1 этаж, а 1111 - 16 этаж, то сообщение о том, что ваш друг живет на десятом этаже будет выглядеть как "0101".