Исходники и листинги ::: Pascal ::: Найти Наибольший Кратный Делитель
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  var a,b,c,i:Integer;
  begin
  i:=0;
  writeln('эта программа находит НОД от двух веденных вами чисел');
  writeln('Bведите первое интересующие вас число');
  readln(a);
  repeat
  if a=0 then begin writeln('нуль вводить нельзя    введите другое число'); i:=i+1; readln(a); end else
  writeln('ведите второе интересующие вас число');
  until a<>0;
  readln(b);
  repeat
  if (b=0and(i>0) then begin writeln('ну ты даешь я же сказал нуль вводить нельзя'); readln(a); end; elseif b=0 then begin writeln('нуль вводить нельзя&nbsp;&nbsp;&nbsp;&nbsp;введите другое число'); readln(a); end;
  until b<>0;
  repeat
  if a>b then begin c:=a-b; a:=c; end else begin&nbsp;&nbsp;c:=b-a; b:=c; end;
  until (c=a)and(c=b);
  writeln('это НОД этих чисел ',c);
  readln;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Найти Наибольший Кратный Делитель
Автор: Arxangelll*
Город: Нижневартовск(Москва
 Дата: 16.01.2007  17:17
Комментариев: 1
Просмотров: 163
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: если необходимо найти НОД то используя этот листинг и имея установленный pascal можно быстро его найти
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Rusher* ::: комментарий от 18.04.2008 | 17:44
  Дух (ур.1)
Очки: 31
Город: Tomsk
Тв. работ: 0
Рег: 26.09.2007 (5617)
Наибольший кратный делитель... бред какой-то...

Может наибольший общий делитель?

А 0 вводить можно, тогда НОДом будет являться другое число.