Lukasiu
Nowicjusz
Dołączył: 05 Gru 2007
Posty: 12
Przeczytał: 0 tematów
Skąd: Gałązczyce
|
Wysłany: Śro 19:01, 05 Gru 2007 Temat postu: lista 5 zad 2- inaczej mgr H |
|
|
program zad2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c:integer;
begin
writeln('podaj liczbe nr 1');
readln(a);
writeln('podaj liczbe nr 2 ');
readln(b);
repeat
c := a mod b;
a := b;
b := c;
until b=0;
writeln ('najwiekszy wspolny dzielnik podanych liczb wynosi: ',a);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|