uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
1. Viết chương trình nhập vào 1 dãy số, in ra các số lớn hơn 0, bé hơn 0. Tính tổng các số lớn hơn 0, bé hơn 0. In ra các số chẵn, số lẻ. In ra các số vừa chia hết cho 2 và 5. Sắp xếp dãy theo thứ tự tăng dần. Tìm giá trị lớn nhất trong dãy. Chèn thêm vào trong dãy 1 phần tử ở bất kỳ vị trí nào
Giúp mik với
Yêu cầu: Viết chương trình nhập vào n số nguyên. In ra số lượng các số nguyên dương trong dãy số.
Dữ liệu:
Dòng đầu tiên ghi số nguyên không âm n (0 < n <= 1000) .Dòng 2 ghi n số nguyên dương kiểu 64 bit cách nhau một dấu cách trống.Kết quả: Đưa ra số lượng các số nguyên dương trong dãy số.
Nhập vào 1 số n và số m và in ra các số từ n đến m trong python(in ra đc lun ạ)
nhập vào 1 số n in ra các số từ n đến 0
BÀI 1: Yêu cầu: Cho n số nguyên , hãy tính khoảng cách nhỏ nhất giữa 2 số nguyên bất kì.
Dữ liệu:
- Dòng đầu tiên ghi số nguyên dương n ( n <= 100000 ).
- Dòng tiếp theo ghi n số nguyên a[i] ( | a[i] | <= 109 ).
Kết quả: In ra kết quả bài toán.
Ví dụ
INPUT |
3 |
OUTPUT |
1 |
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Giải chi tiết giúp mình nhé
Cho số nguyên dương N (100<=N<=1000000). Ghi ra 3 số nguyên tố lớn nhất nhỏ hơn N theo chiều từ lớn đến nhỏ.
xin trả lờ nhanh giúp tui
sau khi thực hiện chương trình j :=1;For i:= 1 to 3 do J:= J+ 2 thì giá trị j in ra màn hình là?