uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);
readln;
end.
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
viết chương trình in ra màn hình các số từ a đến b là số chẵn và chia hết cho 3 đếm xem có tất cả bao nhiêu số với a,b được nhập vào bàn phím
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Viết phương trình Pascal nhập các phân tử có 1 dãy số và đếm xem có bao nhiêu phần tử chia hết 3
Viết chương trình nhập vào từ bàn phím số nguyên N, kiểm tra xem N có chia hết cho 3 và 5 hay không?
Yêu cầu:
a) Xác định điều kiện bài toán
b) Mô tả thuật toán
c) Viết chương trình Python
viết chương trình nhập vào 1 mảng số nguyên sau đó đếm xem có bn số chia hết cho 5 trong dãy số đã nhập?
2.viết chương trình nhập vào số nguyên dương n. A. Tìm và in ra màn hình các số từ 1 đến n chia hết cho 2. .B. tìm và in ra màn hình số từ 1-n ko chia hết cho 2
