Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
9
5
bài 1
program nchan;
uses crt;
var n,i: integer;
begin
clrscr;
Write('nhap n: ');
readln(n);
write('cac so chan la: ');
for i:=1 to n do
if i mod 2=0 then write(i:3);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
9
110
5
bai 2 program songuyento; uses crt; var n,i,dem: integer; begin clrscr; write('nhap n: '); readln(n); for i:=1 to n do if n mod i=0 then dem:=dem+1; if dem=2 then write(n,' la so Nguyen to') else Write(n,' khong la so nguyen to'); readln; end. Rút gọnbai 2 program songuyento; uses crt; var n,i,dem: integer; begin clrscr; write('nhap n: '); readln(n); for i:=1 to n do if n mod i=0 then dem:=dem+1; if dem=2 then write(n,' la so Nguyen to') else Write(n,' khong la so nguyen to'); readln; ... xem thêm