program programik;
uses crt;
var i,k:integer;
a:charl;
begin
clrscr;
writeln('nacisnij 1 aby wyswietlic liczby nieparzyste od 1 do 999');
writeln('nacisnij 2 aby wyswietlic liczby nieparzyste od 1 do liczby podanej przez ciebie');
i:=1;
repeat
begin
a:=readkey;
if (a'1') or (a'2') then writeln('musisz wcisnąc klawisz 1 lub 2');
end;
until (a='1') or (a='2');
if a=('1') then
while i<=999 do
begin
writeln(i);
i:=i+2;
end
else
begin
if a=('2') then
begin
writeln('podaj liczbe, a ja wyswietle liczby nieparzyste od 1 do twojej liczby');
readln(k);
writeln('liczby nieparzyste od 1 do ',k,'to:');
end;
while i<=k do
begin
writeln(i);
i:=i+2;
end;
end;
writeln('nacisnij dowolny klawisz aby zakonczyc program');
readkey:
end.
programik smiga
ale nie dokonca jak bym chciał, tj, jak nacisne klawisz 2 ( przy wyborze)to zanim wyskoczy mi "podaj liczbe, a ja wyswietle liczby nieparzyste....." wyskakuje mi "musisz wcisnac klawisz 1 lub 2", co z tym zrobic ?? aha i jeszcze jedno, czy mozna zrobic tak, ze przy podaniu nie liczby, a np jakiejs litery, do której chcem wyswietlic liczby nieparzyste (tutaj 'k'), zeby nie wywalało mi programu, tylko np wyskakiwał komunikat, np" muszisz podac liczbe'', wiem ze jak zdefiniowałem k:integer , to k ma byc liczbą.
prosze o pomoc.
