PROGRAM ex4_4_1;
uses crt;
const title=' ex4_4_1 โปรแกรม พิมพ์เลขอนุกรม 8 จำนวน';
author=' โดย นายองอาจ พรมประไพ';
Var I,N,k:integer;
{main}
begin
clrscr;writeln(title);writeln(author);writeln;writeln;
N:=8;
writeln('1 to N by Loop while');
writeln;
I:=0; K:=0;
while (K begin
write(I:4);K:=K+1;I:=I mod 5;
end;
writeln;writeln;
write('wait........');readln;
end.
|
