Регистрация
alinodhakota
08.10.2020 04:28
Информатика
Есть ответ 👍

решить задание №4 ООЧЕНЬ с 1 по 3

286
314
Посмотреть ответы 1

Ответы на вопрос:

rachik141516
rachik141516
4,8(80 оценок)
Function gcd(a,b: longint): longint; { нахождение нод }var  i: longint; begin  while b < > 0 do   begin      a : = a mod b;       i : = b; b : = a; a : = i  end;   gcd : = aend; procedure shortfraction(var m,n: longint); var  k: longint; begin  k: =gcd(m,n);   m: =m div k; n: =n div kend; var  a,b: longint; begin  write('введите числитель и знаменатель дроби: '); readln(a,b);   shortfraction(a,b);   writeln('дробь после сокращения равна ',a,'/',b)end.тестовое решение: введите числитель и знаменатель дроби: 25 15дробь после сокращения равна 5/3

Популярно: Информатика