Меню сайта

Задача №41

Составить программу нахождения НОД(наибольшего общего делителя ) -и НОК (наименьшего общего кратного) двух чисел a и b.


Program ciklp_4-

uses crt-

var a,b,p : real-

nod,nok : real-

begin

clrscr-

write(‘a=’)-readln(a)-

write(‘b=’)-readln(b)-

p:=a*b-

repeat

if a&gt-b then a:=a-b

else b:=b-a-

until a=b-

nod:=a-

nok:=p/nod-

writeln(‘НОД:’,a)-

write(‘НОК:’,nok)-

readln-

end.

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

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