Skip to content
WEBSITE ĐÃ HOẠT ĐỘNG TRỞ LẠI, TUY NHIÊN SỐ LƯỢNG SUBMIT BỊ GIỚI HẠN MỖI NGÀY CÒN RẤT ÍT [THEO CHÍNH SÁCH MỚI CỦA JUDGE0, BÊN CUNG CẤP API]. DO VẬY RẤT MONG CÁC BẠN CHÚ Ý TEST THẬT KỸ CODE TRƯỚC KHI SUBMIT.
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
-Viết chương trình nhập vào từ bàn phím số nguyên dương N, tính tổng các giá trị là số chẵn trong phạm vi từ 1 đến N, sau đó in ra màn hình. -Viết chương trình nhập vào từ bàn phím số nguyên dương N, tính tổng các giá trị là số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình. - Viết chương trình nhập vào từ bàn phím số nguyên dương N, để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N, sau đó in ra màn hình.
Giúp mk với. Cần gấp 😭😭😭
Các câu hỏi tương tự
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
1.Viết chương trình của các số từ 1 đến n với n nhập vào từ bàn phím,n nguyên dương
2.Viết chương trình in ra màn hình các số chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n;biết n nhập vào từ bàn phím,n nguyên dương
3.Viết chương trình tính tích các số từ 15 đến 35,in ra màn hình tích đó
[làm cả xác định bài toán,mô tả thuật toán và viết chương trình]
mai e lm ktra rồi,mong mn giúp ạ
thanks mn trc
Các câu hỏi tương tự
bài 1:
uses crt;var n,i,j:longint;begin clrscr; write['Nhap n:']; readln[n]; write['so chan tu 1->n la:']; for i:=1 to n do if i mod 2=0 then write[i,' ']; writeln; write['so le tu 1->n la:']; for j:=1 to n do if j mod 20 then write[j,' ']; readln;
end.
bài 2:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=1; s:=0; write['tong cac so tu 1->n la:']; for i:=1 to n do s:=s+i; write[s]; writeln; write['tich cac so tu 1->n la:']; for j:=1 to n do s1:=s1*j; write[s1]; readln;
end.
bài 3:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=0; s:=0; for i:=1 to n do if i mod 20 then s:=s+i; write['tong cac so le tu 1->n la:',s]; writeln; for j:=1 to n do if j mod 20 then inc[s1]; write['co tat ca ',s1,' so le']; readln;
end.
bài 4:
uses crt;var n,i,j,s,s1:longint;begin clrscr; write['Nhap n:']; readln[n]; s1:=0; s:=1; for i:=1 to n do if i mod 2=0 then s:=s*i; write['tich cac so chan tu 1->n la:',s]; writeln; for j:=1 to n do if j mod 2=0 then inc[s1]; write['co tat ca ',s1,' so chan']; readln;
end.