Дана последовательность чисел 0, 0, 1, 1, 2, 4, 7, 3, 4, 4 … , каждый элемент этой последовательности, начиная с четвёртого раве
NoriGloria [245]
Ответ будет 7.
Если интересно то вот код программы с помощью которого можно найти значение для любого элемента последовательности.
Вместо 1400 вводишь номер элемента
int a = 0, b = 0, c = 1, d = 1;
for (double i = 1; i <= 1400-3; i++ ) {
d = (c + b + a)%10;
a = b;
b = c;
c = d;<span>
Console.WriteLine(d);
}</span>
Ответ:
Объяснение:
program mod7;
var
i:integer;
p:int64;
begin
p:=1;
for i:=1 to 50 do
if i mod 7=0 then p:=p*i;
writeln('Цикл for. p=',p);
///////////////////////////
p:=1; i:=1;
while i<=50 do begin
if i mod 7=0 then p:=p*i;
i:=i+1;
end;
writeln('Цикл while. p=',p);
/////////////////////////////
i:=1;p:=1;
repeat
if i mod 7=0 then p:=p*i;
i:=i+1;
until i>50;
writeln('Цикл repeat. p=',p);
readln;
end.
А=J*D*t= 16*16000*30= 7680000 бит = 7680000/8=960000 байт= 960000/1024= 937,5 Кбайт
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"