М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ramazancheh20
ramazancheh20
03.11.2020 07:39 •  Информатика

Кабыргалары 30см жане 40см бүйір қабырғасы 50см болатын тік бұрышты паралепидті салудын дұрыс тізбегін көрсетіңіз. Отнем км билед кешке дейн​

👇
Ответ:
yanaqwe
yanaqwe
03.11.2020

соны озимде издеп откам

4,4(39 оценок)
Открыть все ответы
Ответ:
hrustam2004
hrustam2004
03.11.2020

Печатная или пишущая машинка – когда-то эта вещь была принадлежностью тех, кого принято называть людьми интеллектуальных профессий: ученых, писателей, журналистов. Бойкий стук по клавишам раздавался и в приемных высоких начальников, где за столом рядом с печатной машинкой восседала очаровательная машинистка-секретарь…

Теперь другое время и печатные машинки уже почти ушли в на смену им пришли персональные компьютеры, сохранившие от печатной машинки лишь клавиатуру. Но может быть не будь печатной машинки не было бы и компьютера?Легенды и исторические источники рассказывают нам о том, что первая пишущая машинка была разработана риста лет назад в 1714 Генри Миллом. Настоящую же, действующую машинку, впервые представил миру итальянец по имени Терри Пеллегрино в 1808 году.

4,6(72 оценок)
Ответ:
lilyamkrtchyan1
lilyamkrtchyan1
03.11.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

unit ASM;

interface

  type SF=(integer,integer);
  function AddSF(a,b:SF):SF;
  function SubSF(a,b:SF):SF;
  function MultSF(a,b:SF):SF;
  function DivSF(a,b:SF):SF;
 
implementation
 
  function Gcd(p:SF):integer;
  begin
    (var a,var b):=p;
    a:=abs(a); b:=abs(b);
    while b>0 do (a,b):=(b,a mod b);
    Result:=a
  end;
 
  function ReductSF(p:SF):SF;
  begin
    var t:=Gcd(p);
    if t>1 then Result:=(p[0] div t,p[1] div t)
    else Result:=p
  end;
 
  function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
 
  function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));

  function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
    
  function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
 
end.

Пример работы с модулем

uses ASM;

begin
  var a:=(5,24);
  var b:=(7,8);
  var c:=AddSF(a,b);
  Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.

Результат

5/24+7/8=13/12
4,8(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ