Tin học GIÚP MN ĐI >LÀM 1 TRONG HAI CÂU THÔI -Viết chương trình in ra tích các số chẵn, tích các số lẻ của 20 số tự nhiên đầu tiên. -Viết chương trình in ra c 23/07/2021 By Nevaeh GIÚP MN ĐI >LÀM 1 TRONG HAI CÂU THÔI -Viết chương trình in ra tích các số chẵn, tích các số lẻ của 20 số tự nhiên đầu tiên. -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.
Bài 1: program tinhtich; uses crt; var i:integer tc,tl:longint; begin clrscr; tc:=0; tl:=0; for i:=1 to 20 do if i mod 2=0 then tc:=tc*i else tl:=tl*i; writeln(‘Tich chan cac so tu 1 den 20 la: ‘,tc); writeln(‘Tich le cac so le tu 1 den 20 la: ‘,tl); readln end. Bài 2: 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