no doplnil som tam počítadlo ktoré ak bude mať hodnotu 25 tak program zastaví...ty by si si mohol pozrieť ten výpis a keď stlačíš enter tak vymaže obrazovku a nanovo bude vypisovať ďalšie a ďalšie veci..
za kvalitu neručím nemám to kde vyskúšať a pascalovskú syntaxu už tiež akosi neovládam.
Kód:
program xy;
uses crt;
var min,max,pocitadlo:integer;
begin
pocitadlo:=0;
clrscr;
write('Min : ');
readln(min);
write('Max : ');
readln(max);
while min<max do begin
inc(pocitadlo);
min:=min+1;
if(odd(min)=true) then writeln(min,' neparne') else writeln(min,'parne');
if(pocitadlo=25) then begin
readln;
clrscr;
pocitadlo:=0;
end;
end;
readln;
end.
a zmenil som to read na readln pretože ak ma pamäť neklame readom by si načítal iba jeden znak...
Dúfam že to pomôže....ale tak principiálne by to malo fungovať
zadanie :
