Siwy
Gaduła
Dołączył: 02 Gru 2007
Posty: 93
Przeczytał: 0 tematów
|
Wysłany: Wto 9:18, 04 Gru 2007 Temat postu: Lista 5 zad 3 - mgr H |
|
|
program prog3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,c:integer;
i,j:byte;
o:char;
begin
repeat
b:=0;
c:=0;
writeln ('Podaj dziesiec liczb');
for j:=1 to 10 do
begin
readln (a);
if ((a mod 2)=0) then inc(b) else inc(c);
end;
writeln;
if b>0 then writeln ('Ilosc wprowadzonych liczb parzystych wynosi ', b)
else writeln ('Nie wprowadzono liczb parzystych');
if c>0 then writeln ('Ilosc wprowadzonych liczb nieparzystych wynosi ', c)
else writeln ('Nie wprowadzono liczb nieparzystych');
writeln;
writeln;
writeln ('Zakonczyc program [Z] czy powtorzyc [P]?');
readln (o);
while (upcase (o)<>'Z') and (upcase (o)<>'P') do
begin
writeln ('Wcisnij "Z" by zakonczyc lub "P" by powtorzyc');
readln (o);
end;
until upcase (o)='Z';
end.
|
|