Дана последовательность чисел: 1 2 3 2 3 4 3 4 5 4 5 6 5 6 найдите, на каком месте первый раз в данной помледовательности встретится число 90. в ответе написать только число
Const CSize1=7; CSize2=6; CSize3=5; type TMas=array[,] of integer; var A1:TMas; A2:TMas; A3:TMas; x, y:byte;
procedure zapoln(var T:TMas;Size:integer); begin var i,j:integer; setlength(T,Size+1,Size+1); for i:=1 to Size do begin for j:=1 to Size do begin T[i,j]:=random(50); write(T[i,j]:3); end; writeln; end; writeln; end;
function zero(T:TMas):integer; var i,j,n:integer; begin n:=length(T,0)-1; for i:=1 to n do for j:=1 to n do if T[i,j]=0 then result:=result+1; end;
function interval(T:TMas):integer; var i,j,n:integer; begin n:=length(T,0)-1; for i:=1 to n do for j:=1 to n do if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1; end;
begin zapoln(A1,CSize1); zapoln(A2,CSize2); zapoln(A3,CSize3); x:=zero(A1)+zero(A2)+zero(A3); y:=interval(A1)+interval(A2)+interval(A3); writeln('Kol-vo 0 =', x); writeln('Kol-vo v intervale=', y); end.
Наполняем сосуд на 9 литров и переливаем из него воду в 7 л. сосуд (в 9 л. сосуде остаётся 2 л)выливаем воду из 7л. сосуда и заливаем туда 2 л воды из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 4 л. )выливаем воду из 7л. сосуда и заливаем туда 4 л из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 6 л. )Выливаем воду из 7 л. сосуда и заливаем туда 6л. из 9 л. сосуда , наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 8 л. )Выливаем воду из 7л. сосуда и заливаем туда воду из 9л. сосуда (8-7=1л остался в 9л. Сосуде)
*Этот текст написан здесь просто так, потому что для ответа нужно минимум 20 символов за внимание)