Болт-бот = л л=11-8=3 вол = 9 во = вол - л = 9 - 3 = 6 лото = 12 ото = лото - л = 12 - 3 = 9 бот = 8, значит о>б на 1, л = 3 , о = 2, 6 = 1, тогда т = 9-2-2 = 5, а в = 6 - 2 = 4
0011 - 3
0100 - 4
34 - 00110100
<u>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses NumLibABC;
begin
var (num,denom):=ReadInteger2('Числитель и знаменатель 1-й дроби:');
var f1:=Frc(num,denom);
(num,denom):=ReadInteger2('Числитель и знаменатель 2-й дроби:');
var f2:=Frc(num,denom);
f1.Print; Write('* '); f2.Print; Write('= '); (f1*f2).Print
end.
<em>Примеры</em>
Числитель и знаменатель 1-й дроби: 4 9
Числитель и знаменатель 2-й дроби: 3 8
4/9 * 3/8 = 1/6
Числитель и знаменатель 1-й дроби: 32432424 10213133
Числитель и знаменатель 2-й дроби: 23123 12313123
32432424/10213133 * 23123/12313123 = 749934940152/125755562844359
Числитель и знаменатель 1-й дроби: 15 2
Числитель и знаменатель 2-й дроби: 8 15
15/2 * 8/15 = 4
Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
