Question

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)


Z góry dzieki ;)

Answer 1

Ad.1

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.