1)
var arr: array [1..12] of integer;
begin
for var i := 1 to 12 do
arr[i] := random(-48, -83);
writeln(arr[3] + ' ' + arr[7] + ' ' + arr[11]);
end.
2)
var arr: array [1..9] of double;
begin
for var i := 1 to 9 do
begin
arr[i] := random(15, 40);
write(arr[i] + ' ');
end;
writeln();
var max := arr[1];
for var i := 2 to 9 do
begin
if max < arr[i] then
max := arr[i];
end;
writeln('Max: ' + max);
end.
3)
var arr: array [1..15] of integer;
begin
for var i := 1 to 9 do
begin
arr[i] := random(-10, 35);
write(arr[i] + ' ');
end;
writeln();
write('Нечетные: ');
for var i := 1 to 9 do
begin
if not arr[i] mod 2 = 0 then
write(arr[i] + ' ');
end;
end.
1)
var arr: array [1..12] of integer;
begin
for var i := 1 to 12 do
arr[i] := random(-48, -83);
writeln(arr[3] + ' ' + arr[7] + ' ' + arr[11]);
end.
2)
var arr: array [1..9] of double;
begin
for var i := 1 to 9 do
begin
arr[i] := random(15, 40);
write(arr[i] + ' ');
end;
writeln();
var max := arr[1];
for var i := 2 to 9 do
begin
if max < arr[i] then
max := arr[i];
end;
writeln('Max: ' + max);
end.
3)
var arr: array [1..15] of integer;
begin
for var i := 1 to 9 do
begin
arr[i] := random(-10, 35);
write(arr[i] + ' ');
end;
writeln();
write('Нечетные: ');
for var i := 1 to 9 do
begin
if not arr[i] mod 2 = 0 then
write(arr[i] + ' ');
end;
end.
var
S, r1, r2 : real;
begin
readln (r1);
readln (r2);
S := 3.14 * (SQR(r1) - SQR(r2));;
writeln (S);
end.
2 вариант
Х1*(Х2+Х3)*Х1+Х2+Х1*Х3
1) X1*X1=X1 (закон повторения). Имеем:
Х1*(Х2+Х3)+Х2+Х1*Х3
2) Раскрываем скобки:
Х1*Х2+Х1*Х3+Х2+Х1*Х3
3) X1*X3+X1*X3=X1*X3 (a+a=a - тот же закон повторения, только для сложения). Применяем и имеем:
Х1*Х2+Х1*Х3+Х2
4) Х1*Х2+Х2=X2 (правило склеивания). Имеем:
Х2+Х1*Х3
Решено. Все законы нетрудно проверить подставляя 0 или