Witam
Mam problem z napisaniem programu w TP obliczajacy ilosc liczb parzystych w ciagu liczb calkowitych od 1 do wartosci podanej przez operatora.
Proszę o pomoc.
Witam
Mam problem z napisaniem programu w TP obliczajacy ilosc liczb parzystych w ciagu liczb calkowitych od 1 do wartosci podanej przez operatora.
Proszę o pomoc.
n div 2?
Jeżeli Liczba mod 2 = 0 to jest ona parzysta.
Można też tak
var
Liczba:Integer;
Parzysta:Boolean;
//...
Parzysta:=((Liczba and 1)=0);
Parzysta:=((Liczba and 1)=0);
albo
parzysta:=not wordbool(liczba and 1);
zakładam, że TP oznacza Pascal
przypomnę kolegom o Pascalowym odd()
no to mamy dwie propozycje
var i,j,s:integer;
begin
readln(i);
if PROPOZYCJA=1 then
writeln...
else begin
s:=0;
for j:=1 to i do
if ....
writeln(s)
end
end.
Olesiu i Azaienie, będę kolegą i nikomu nie powiem.
Czy wyście wszyscy pogłupieli? Co druga liczba jest parzysta. Zatem w przedziale [1,n] jest (n div 2) liczb parzystych.
Patryk, czytałeś pytanie?
Mam problem z napisaniem programu w TP obliczajacy ilosc liczb parzystych w ciagu liczb calkowitych od 1 do wartosci podanej przez operatora