Var
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=k then k:=k+1; end;
writeln(k);
<span>end.</span>
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
Процессор характеризуется тактовой частотой далее наличием одного или нескольких ядер, далее частотой работы шины процессора то есть работы процессора с оперативной памятью. далее процессор имеет температурные характеристики ТДП, далее наличие встроенного графического процессора в таких как core i3, i5, i7
так же разрядность процессора 32 или 64 бита, внутренняя память бывает двух типов оперативной и постоянной, характеристики такие как объем памяти, скорость работы ,частота работы оперативной памяти
<span>Блок-схема линейного алгоритма.</span>
<span>Разветвляющийся алгоритм</span>
<span></span>