Napisz w jezyku programowania Pascal kody zrodlowe programow, ktore realizuja nastepujace zadania :
1 znalezienie najwiekszego wspolnego dzielnika (NWD) liczb a i b (intrukcja while). 2. wypisanie wszystkich liczb nieparzystych od wczytanej liczby (intrukcja while ) 3. wypisanie w kolejnosci malejacej wszystkich dzielnikow wczytanej liczby (intrukcja repeat) 4 zamiana wczytanej liczby dziesietnej na system dwojkowy i wypisanie jej bitow (intrukcja repeat)
program dzelnik; uses CRT; var a,b,dzielnik,i : Integer; begin clrscr ; Write('Podaj pierwsza liczbe: '); Readln(a); Write('Podaj drugą liczbe: '); Readln(b); while a<>b do begin if a < a then begin i := a; a := b; b := i; end; a := a - b; end; dzielnik := a; Writeln('Najwiekszy wspolny dzielnik: ',a); readln; end.
Ad.2
Program nparz; uses CRT; var liczba, i: integer; begin Clrscr; Writeln('Podaj liczbe:'); readln(liczba); i := liczba-2; while i <> 0 do begin if i mod 2 = 1 then write(i,', '); i := i-1; end; readln; end.
Ad.3
Program dzielniki; uses CRT; var liczba, i: integer; begin Clrscr; Writeln('Podaj liczbe:'); readln(liczba); Writeln('Dzielniki tej liczby to:'); writeln; i := liczba-1; repeat if liczba mod i = 0 then write(i,', '); i := i-1; until i = 1; readln; end.
4 niestety nie dałem rady zrobić, w razie problemów, albo gdyby coś było źle to napisz prywatną wiadomość i coś wymyślimy.
program dzelnik;
uses CRT;
var
a,b,dzielnik,i : Integer;
begin
clrscr ;
Write('Podaj pierwsza liczbe: ');
Readln(a);
Write('Podaj drugą liczbe: ');
Readln(b);
while a<>b do begin
if a < a then
begin
i := a; a := b;
b := i;
end;
a := a - b;
end;
dzielnik := a;
Writeln('Najwiekszy wspolny dzielnik: ',a);
readln;
end.
Ad.2
Program nparz;
uses CRT;
var
liczba, i: integer;
begin
Clrscr;
Writeln('Podaj liczbe:');
readln(liczba);
i := liczba-2;
while i <> 0 do begin
if i mod 2 = 1 then write(i,', ');
i := i-1;
end;
readln;
end.
Ad.3
Program dzielniki;
uses CRT;
var
liczba, i: integer;
begin
Clrscr;
Writeln('Podaj liczbe:');
readln(liczba);
Writeln('Dzielniki tej liczby to:');
writeln;
i := liczba-1;
repeat
if liczba mod i = 0 then write(i,', ');
i := i-1;
until i = 1;
readln;
end.
4 niestety nie dałem rady zrobić, w razie problemów, albo gdyby coś było źle to napisz prywatną wiadomość i coś wymyślimy.