Є сітка довжиною 100 м для огорожі прямокутної території складу. Паркан складається із секцій однометрової довжини. Визнач, яку найбільшу площу можна огородити за до цієї сітки, якщо склад з однієї сторони обмежується стіною, що не потребує огородження. Вкажи ширину та довжину ділянки з найбільшою Площею (значення довжини та сторони мають бути цілими числами), Якими будуть відповіді, якщо довжина сітки 80 м2 60 м?
Program mas; uses crt; var X:array [1..8,1..7] of integer; i,j,a,b:integer; begin clrscr; write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): '); repeat read(a,b); until a<=b; writeln; randomize; for i:=1 to 8 do for j:=1 to 7 do X[i,j]:=random(b-a+1)+a; writeln('Ваш массив:'); for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5); writeln; end; for i:=1 to 8 do for j:=1 to 3 do X[i,j]:=sqr(X[i,j]); writeln; writeln('Рeзультат:'); for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5); writeln; end; readkey; end.
В бутылке минеральная вода. Сейчас стакан не стоит между чаем и молоком. Поставить стакан между бутылкой с минеральной водой и кружкой нельзя, так как тогда он будет стоять между минеральной водой, а должен стоять рядом с чаем и молоком. Значит, стакан можно поставить между кружкой и чашкой. Стакан оказывается в середине, значит, в нем кофе. Молоко не может быть в кружке, так как по соседству с молоком будет кофе и минеральная вода, а рядом с молоком должен быть квас. Значит, молоко в чашке. Так как по соседству с молоком должен быть квас, то в кувшине квас. ответ: в бутылке минеральная вода, в кружке чай, в чашке молоко, в стакане кофе, в кувшине квас.
uses crt;
var X:array [1..8,1..7] of integer; i,j,a,b:integer;
begin
clrscr;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to 8 do
for j:=1 to 7 do X[i,j]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to 8 do
begin
for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
for i:=1 to 8 do
for j:=1 to 3 do X[i,j]:=sqr(X[i,j]);
writeln;
writeln('Рeзультат:');
for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
readkey;
end.