[Programowanie] NWD dwóch liczb

 

Program NWD;   { ---> WG ALGORYTMU EUKLIDESA ---}
uses crt;

var a, b, c :integer;

{*******************************************************}
Procedure licz;
Begin
Repeat
c:=a mod b;
a:=b;
b:=c;
if b=0 then
begin
gotoxy (25,20);
write ('NWD z liczb A i B wynosi: ',a);
end;
Until b=0;
End;
{*******************************************************}

BEGIN
clrscr;
textcolor (yellow);
gotoxy (20,3);
writeln ('Program wyliczy NWD dla liczby A i B ');
gotoxy(12,5);
write ('Podaj liczbe calkowita A: '); readln (a);
gotoxy(12,6);
write ('Podaj liczbe calkowita B: '); readln (b);
textcolor (white);

licz;

readln
END.

 

 

Dodaj komentarz


Kod antysapmowy
Odśwież

:: REKLAMA ::

.:: PODNOŚNIK KOSZOWY :.
.: INSTALACJE ELEKTRYCZNE
:.

podnosnik koszowy, instalacje elektryczne, krosno odrzanskie

KROSNO ODRZAŃSKIE
oraz okolice

- podnośnik koszowy
- instalacje elektryczne
- pielegnacja drzew i zieleni

Statystyki

Użytkowników : 2
Artykułów : 60
Odsłon : 39988

Online

Naszą witrynę przegląda teraz 4 gości 

Polecam

Ubuntu.pl Polskie Centrum Joomla Pobierz Firefoksa!

:: REKLAMA ::

.: OKNA I DRZWI ZIELONA GÓRA :.

okna Zielona Góra

ZIELONA GÓRA :: NOWA SÓL

okna plastikowe :: okna drewniane
drzwi pcv :: drzwi drewniane
bramy garażowe :: rolety
kraty antywłamaniowe