Sayıyı Ekrana 3 Sütun Halinde Yazdıran Program

2’den   başlayarak i<72 asal sayıyı ekrana 3 sütun halinde yazdıran program.


uses crt;
var
i,a,sayac:integer;
begin
clrscr;
for i:=3 to 500 do
for a:=2 to i-1 do begin
if((i mod a)=0)then
break
else if(a=(i-1))then begin
sayac:=sayac+1;
if(sayac<=24)then

writeln(i)
else if(sayac<=48)then begin
gotoxy(40,sayac-24);
writeln(i);end
else if(sayac<=72)then begin
gotoxy(75,sayac-48);
writeln(i);end;
end;
end;
readln;
end.


Linkback: https://www.buyuknet.com/sayiyi-ekrana-3-sutun-halinde-yazdiran-program-t8627.0.html