Меню сайта

Задача №32

Ввести дробь —a/b. Определить, сократима ли дробь. (дробь является несократимой, если НОД(a,b)=1.


Program cikl_15-

uses crt-

var m,n : longint-

begin

clrscr-

write(‘числитель ‘)-readln(m)-

write(‘знаменатель ‘)-readln(n)-

while m&lt-&gt-n do

if m&gt-n

then m:=m-n

else n:=n-m-

n:=m-

if n=1

then write(‘нескоратимая’)

else write(‘сократимая’)-

readln-

end.

Категория: Циклы | Дата: 14.11.12

Меню раздела
Блок