Tin học Viết chương trình vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Helppppp meeee???????? 17/07/2021 By Lyla Viết chương trình vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Helppppp meeee????????
uses crt; var m,i:integer; begin clrscr; repeat write(‘Nhap m=’); readln(m); until m>4; for i:=1 to m do if m mod i=0 then write(i:4); readln; end. Câu 2: uses crt; var a:array[1..100]of integer; i,n,t1,t2:integer; begin clrscr; write(‘Nhap n=’); readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(a[i]); end; writeln(‘Day so ban vua nhap la: ‘); for i:=1 to n do write(a[i]:4); writeln; t1:=0; for i:=1 to n do if a[i]>0 then t1:=t1+a[i]; writeln(‘Tong cac gia tri duong la: ‘,t1); t2:=0; for i:=1 to n do if a[i] mod 2=0 then t2:=t2+a[i]; writeln(‘Tong cac so chan la: ‘,t2); readln; end. Trả lời