Giúp mik vs ạ !!!!🙂năn nỉ lun ak cho 5 sao lun❤️
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
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?
51 vote
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group 2K9 Ôn Thi Vào Lớp 10 Miễn Phí
Ban 1: In ra cac só chan cua N số ti nhún
N=5 (N= 1,2,3,4,5)
Két qua =d;4
to'
K tra sö bát ky
không
vd: X= 5 lä số nquyên.
CO
Sự kiện
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
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