Наполняем сосуд на 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л. Сосуде)
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.
Дан алгоритм: а:=-2; b:=2; если a>=b то X:=(250 div 10 mod 2) + (350 div 10 mod 10) иначе X:=(250 div 10 mod 10) + (47 mod 6 div 5);
Решение а:=10
b:=x mod a
а:=а-b/2
если a>=b то X:=(250 div 10 mod 2) + (350 div 10 mod 10)
иначе X:=(250 div 10 mod 10) + (47 mod 6 div 5);