Program n1;
var: a,b,c,d, n, m, s: integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(a); //1й числитель//
readln(b); //1й знаменатель//
readln(c); //2й числитель//
readln(d); //2й знаменатель//
n:=a*d+c*b;
m:=b*d;
s:=nod(n,m);
n:=n div s;
m:= m div s;
writeln(n,'/',m);
end.
Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.
Незаходить в кабинет учетиля без разрешения 2проверить рабочие место 3 проверить влажные ли руки
Можно!
............................................................................
Полностью наполнить флакон(5) , затем перелить из него в флакон(7)(7-5=2-на столько капель останется места). Затем снова наполнить флакон(5) и из него до конца наполнить флакон(7). 5-2=3 капли останется в флаконе(5)