Pascal - Konsolowe

Liczby nieparzyste

Liczby nieparzyste
Pascal - Konsolowe

Program: zliczający ilość liczb nieparzystych.

Użytkownik podaje liczby aż do podania 0, wtedy program przerywa swoje działanie i zlicza ilość liczb nieparzystych.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

Program nieparzy;
uses crt;
var a,np:integer;
begin
     clrscr;
     Writeln('Wprowadzaj liczby a');
     Writeln('Program zakonczy swoje dzialanie w momencie kiedy wpiszesz liczbe 0');
     Writeln('Program sprawdzi czy sa nieparzyste i wyswietli wynik');
     Write ('Wprowadz liczbe a: ');
     read (a);
     while a<>0 do
     begin
          If (a mod 2)=1 then np:=np+1;
          Write ('Wprowadz liczbe a: ');
          read (a);
     end;
     writeln('@@@ Podales ',np,' liczb(y) nieparzystych(e) @@@');
     readkey;
end.