uses crt; {deklaracja modułu crt do zmiany kolorów itp.}
var liczba1, liczba2, reszta: longint {deklaracja zmiennych}
begin
clrscr; {czyszczenie ekranu}
write('A='); {wyświetlenie tekstu na ekranie}
readln(liczba1); {odczytanie wartości z klawiatury i zapisanie do zmiennej liczba1}
write('B=');
readln(liczba2);
repeat {powtarzaj}
reszta:=liczba1 mod liczba2; {zmienną reszta ustaw na resztę dzielenia liczb liczba1 i liczba2}
writeln(liczba1,' mod ',liczba2,' = ',reszta);
if (reszta<>0) then begin {jeśli reszta nie jest równa 0 to wykonaj}
liczba1:=liczba2; {wartość liczba1 ustaw na liczba2}
liczba2:=reszta;
end;
until reszta=0; {powtarzaj, aż reszta będzie równa 0}
writeln('Wynik: ',liczba2);
readkey; {czekaj na wciśnięcie}
end.

Wygenerowano: 2005-10-26

Dodaj pracę

Przybornik

przedmiot:
wiersze
zakres:

autor pracy:
anonim

data dodania:
2005-10-26

---

średnia ocena:
1.38

Oceń: 6 5 4 3 2 1

---

przedmioty
-- wybierz przedm. -- WIERSZE J. POLSKI HASŁA - J. POLSKI J. ANGIELSKI J. NIEMIECKI MATEMATYKA INFORMATYKA GEOGRAFIA HISTORIA BIOLOGIA CHEMIA FIZYKA RELIGIA SZTUKA WOS PO INNE EKONOMICZNE HUMANISTYCZNE TECHNICZNE INFORMATYCZNE JĘZYKI INNE MATEMATYKA WYŻSZA
  powrót na index

---

   

---

szukaj prac

Zaawansowane