Исполнитель умеет из любой дроби a/b получать любую из дробей (a-b)/b, ( a+b)/b и b/a. как получить - id349603020220603 от Anzhelika35 03.06.2022 06:40

Question

Информатика: Исполнитель умеет из любой дроби a/b получать любую из дробей (a-b)/b, ( a+b)/b и b/a. как получить из дроби 1/2 дробь 1/7. а как получить 67/91?

Anzhelika35 · Accepted Answer

1)
program numOp;
  var a,b:longint;
begin
  write('a='); readln(a);
  write('b='); readln(b); writeln;
  writeln('Среднее арифметическое: ',((a+b)/2):0:2);
  writeln('Сумма: ',a+b);
  writeln('Разность: ',a-b);
  writeln('Произведение: ',a*b); readln;
end.
2)
program triangleInf;
  var
kat1,kat2:longint;
gip,s:real;
  begin
write('Катет1: '); readln(kat1);
write('Катет2: '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
writeln('Гипотенуза: ',gip:0:2);
writeln('Площадь: ',s:0:2); readln;
end.

Исполнитель умеет из любой дроби a/b получать любую из дробей (a-b)/b, ( a+b)/b и b/a. как получить из дроби 1/2 дробь 1/7. а как получить 67/91?

MOGZ ответил