Tin học Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng 19/07/2021 By Athena Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng
Program In_So_Le;Uses crt;var Dem,i,n: integer;Begin Clrscr; Write(‘Nhap so n =’); readln(n); Dem:= 0; For i:=1 to n do if i mod 2 =1 then Begin Write(i:3,’,’); CHÚC BN HC TỐT MÀ BN KO TIN THÌ BN CÓ THỂ THỬ Trả lời
var n,i,d:integer; var n,i,d:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); d:=0; writeln(‘Cac so le tu 1 den n la: ‘); for i:=1 to n do if i mod 2=1 then begin write(i,’ ‘); d:=d+1; if d mod 15=0 then writeln; end; readln end. Trả lời