Question

Dla podanej poniżej specyfikacji zapisz algorytm, który dla czasu wykładu podanego w sekundach obliczy, ile jedynek zostanie wyświetlonych na zegarze w momencie zakończenia wykładu.

Specyfikacja:

Dane: s – liczba całkowita dodatnia określająca czas trwania wykładu w sekundach Wynik: l – liczba wyświetlonych jedynek.

Przykłady:

s-czas wykładu: napis na zegarze : l – liczba wyświetlonych jedynek :

3600 111000010000 4

5400 1010100011000 5

Proszę napisać ten program w PASCALU

Dziękuje ;)

Answer 1

program xxx;
var
s,l,jedynki:integer;
begin
writeln('Podaj czas trwania wykladu: ')
readln(s);

jedynki := 0;

while ( s > 0 ) do
begin
if ( s % 2 <> 0) then
jedynki := jedynki + 1;

s := s/2;

end;

Writeln('Wyswietlono ',s,' jedynek');

readln;

end.

// Teraz małe objaśnienie:

Algorytm to poprostu przeliczanie z systemu dziesiętnego (DEC) na system dwójkowy (BIn), nie zapisuję wyniku binarnego bo chodzi nam tylko o ilość jedynek..