Решаем задачи Абрамян на Паскале. While23

While23. Даны целые положительные числа $$A$$ и $$B$$. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД($$A$$,$$B$$) = НОД($$B$$, $$A$$ mod $$B$$), если $$B \not= 0$$; НОД($$A$$, $$0$$) = $$A$$.

Решение:

program While23;
var
  A,B :Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  while (A<>0) and (B<>0) do
   begin
    if a>b then A:=(a mod b)
    else B:=(B mod A);
   end;
  Writeln(A+B);
end.

program While23;

var

A,B :Integer;

begin

Write('Введите число A: ');

Readln(A);

Write('Введите число B: ');

Readln(B);

while (A<>0) and (B<>0) do

begin

if a>b then A:=(a mod b)

else B:=(B mod A);

end;

Writeln(A+B);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 3

Bronislav

16.02.2018 в 12:31

`

var a,b:integer; begin read(a,b); while a<>0 do if a>=b then a:=a mod b else (a,b):=(b,a); writeln('GCD = ',b); end.

1
2
3
4
5
6
7
8
9

var
  a,b:integer;
begin
  read(a,b);
  while a<>0 do
    if a>=b then a:=a mod b
    else (a,b):=(b,a);
  writeln('GCD = ',b);
end.

Ответить
Александр

26.05.2018 в 16:43

Что значит writeln (a+b) ??

Ответить
- Anton
  
  26.05.2018 в 16:48
  
  Сначало выполняется операция a+b, а потом выводится на консоль.
  
  Ответить

Решаем задачи Абрамян на Паскале. While23

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ