написать программу нахождения...

Тема в разделе "Информатика", создана пользователем Ranetka, 1 мар 2010.

  1. Ranetka

    Ranetka New Member

    написать программу нахождения наибольшего общего делителя,для 2 чисел.А и В введенных склавиатуры
     
    Ranetka, 1 мар 2010
    #1
  2. urtelo

    urtelo New Member

    var
    a,b:integer;
     
    begin
    readln(a,b);
    while a<>b do
     begin
      if a>b then a:=a-b;
      if a<b then b:=b-a;
     end;
    writeln(a);
    readln;
    end.
     
    urtelo, 1 мар 2010
    #2

Поделиться этой страницей

Наша группа