uses crt;
var n,i,dem,j,t:integer;
kt:boolean;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
begin
kt:=true;
for j:=2 to i-1 do
if i mod j=0 then kt:=false;
if kt=true then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln(t);
readln;
end.
Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó
Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tử
a, in ra màn hình mảng vừa nhập (bỏ qua phần này!)
b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.
c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.
d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong mảng.
e, tìm số xuất hiện nhiều nhất(lặp lại lắm nhất) và số lần xuất hiện của số đó trong mảng.( Nếu tìm được nhiều số có số lần xuất hiện bằng nhau thì chỉ cần in ra số tìm được đầu tiên ).
f, đếm xem trong mảng có bao nhiêu số thân thiện :)) ( Số thân thiện là số có nhiều hơn 1 chữ số và nó chia hết cho TỔNG các chữ số của nó).
----------làm bằng procedure và function giúp mình kaka------------
<3 Cảm ơn các procoder :))
Nhập vào số nguyên dương n (0<N<100) và dãy n số nguyên dương. Viết chương trình in ra các số là số chính phương và các số là số nguyên tố có trong dãy, nếu dãy không có số chính phương và không có số nguyên tố thì thông báo ‘dãy không có số chính phương, nguyên tố'
ngôn ngữ pascal (ko dùng hàm).
Viết chương trình nhập từ bàn phím một số nguyên dương N (1<= N < 1000) in ra màn hình các thông tin sau :
a) Số các ước số nguyên dương của số N
b) Tổng các ước số nguyên dương của N
(m.n giúp em với)
Viết chương trình nhập vào 3 số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất và giá trị nhỏ nhất trong 3 số nguyên đã nhập. Mình cần gấp ạ
Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn trong dãy
viết chương trình nhập n số nguyên từ bàn phím (n<10^5) , in ra man hình tổng các số nguyên lẻ và dãy số trên sau khi đc sắp xếp tăng dần
INPUT OUTPUT
5 9
2 4 1 5 3 1 2 3 4 5
C++ ah
Viết chương trình con trong pascal in ra số nguyên tố có hai chữ số chẵn. Giúp với ạ mik đang cần gấp!!
Nhập vào từ bàn phím số nguyên dương N (1<N 10')
- Dòng 1: Tổng các chữ số của N.
- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N
- Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất
- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N
Ví dụ :nhập vào 15
in ra d1:6
d2:8
d3:1 5
d4:21
