Tek Sayıları Gösteren Program
5-Tek Sayıları Gösteren Program
uses crt;
var
x,y,m:integer;
begin clrscr;
write('Birinci Sayıyı Giriniz...:');
read(x);
write('İkinci Sayıyı Giriniz....:');
read
;
clrscr;
writeln('Bu program ',x,' ile ',y,' arasındaki tek sayıları gösterir.');
readkey;
clrscr;
m:=(x mod 2);
if m=0 then x:=x+1;
if m=1 then x:=x+2;
m:=(y mod 2);
if m=0 then y:=y+1;
if m=1 then y:=y;
if x>y then
begin
repeat
write(y:5);
y:=y+2;
until y>=x;
end
else
repeat
write(x:5);
x:=x+2;
until y<=x;
readkey;
end.
5-Tek Sayıları Gösteren Program
uses crt;
var
x,y,m:integer;
begin clrscr;
write('Birinci Sayıyı Giriniz...:');
read(x);
write('İkinci Sayıyı Giriniz....:');
read
;clrscr;
writeln('Bu program ',x,' ile ',y,' arasındaki tek sayıları gösterir.');
readkey;
clrscr;
m:=(x mod 2);
if m=0 then x:=x+1;
if m=1 then x:=x+2;
m:=(y mod 2);
if m=0 then y:=y+1;
if m=1 then y:=y;
if x>y then
begin
repeat
write(y:5);
y:=y+2;
until y>=x;
end
else
repeat
write(x:5);
x:=x+2;
until y<=x;
readkey;
end.
