На паскале написать программку сокращения дроби , где N целое,

На паскале написать программку сокращения дроби , где N целое, M естественное число. Использовать метод Евклида. Разработать испытания для проверки правильности работы программы.

Задать свой вопрос
2 ответа
Var
 n,m:integer;
 a,b:integer;
begin
 read(n,m);
 a := abs(n);
 b := m;
 while a lt;gt; b do
   if a gt; b then
     a := a - b
   else
     b := b - a;
 b := m div a;
 a := n div a;
 writeln(a,'/',b);
 if a*m = b*n then writeln('Correct')
end.
Program ex2;
uses crt;
var a, b, x: real;
begin clrsc;
write('a='); readln(a);
write('b='); readln(b);
алг. Евклина для НОД
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт