Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: [Utopiony] Napisz programktory znajdzie najmniejszy wspólny dzielnik dwóch liczb podanych przez uzytkownika A

W dół

Od 1 do 1 z 1

  1.  
  1.  
    Program NWD;
    var
    a,b,nwd,r:integer;
    writeln('podaj pierwszą liczbę');
    readln(a);
    writeln('podaj druga liczbe');
    readln(b);
    repeat
    r:=a ma b;
    a:=b;
    b:=r;
    until r:0;
    writeln('NWD=''a');
    end.

Od 1 do 1 z 1

  1.