Hogyan tudom Pascal programban leírni, hogy beütöm az 1-est, és megjelenik az összes páros szám 0-tól 1000-ig, ha a 2-est, akkor 0-1000 az összes páratlan szám?

[link]

Itt megtalálsz mindent;)

uses crt;

var p,temp: integer;

BEGIN

readln(p);

if (p=1) then temp:=0

else if (p=2) then temp:=1;

if ((p=1) or (p=2)) then

while (temp<=1000) do

begin

writeln(temp);

temp:=temp+2;

end

else writeln('Csak 1est vagy 2st adhatsz meg!');

readkey();

END.

kipróbálni sajnos nem tudtam, mert nincs a gépemen IDE.

Remélem segítettem. És remélem jó :D