Forum www.ispwsznysa.fora.pl Strona Główna www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

lista 5 zad 2- inaczej mgr H

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Lukasiu
Nowicjusz



Dołączył: 05 Gru 2007
Posty: 12
Przeczytał: 0 tematów

Skąd: Gałązczyce

PostWysł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.
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin