uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.
viett cau lenh for in ra cac so tu N den M
3/ VCT nhập vào dãy gồm n kí tự, cho biết dãy vưda nhập có bao nhiêu kí tự là 'a'
Ví dụ: Nhap n = 3 Ki tu thu 1: a Ki tu thu 2: d Ki tu thu 3: a Day co 2 ki tu 'a'
Bài 4: VCT nhập vào 2 số nguyên a và b. In ra màn hình các số nguyên trong đoạn từ a đến b, tính tổng tất cả các số nguyên âm trong đoạn từ a đến b
Ví dụ: Nhap a = -2 Nhap b = 5 Cac so tu-2 den 5 la: -2 -1 0 1 2 3 4 5 Tong cac so nguyen am tu -2 den 5 la: -3
Ai hộ mình được câu nào thì hộ với ạ
Câu 1 : Viết chương trình tính và in ra tổng N số nguyên đầu tiên? (N được nhập vào
từ bàn phím)
Câu 2 : Viết chương trình tính và in ra tổng các số chẵn của 10 số nguyên đầu tiên? (N
được nhập vào từ bàn phím)
Câu 3 : Viết chương trình tính và in ra tổng các số lẻ của 10 số nguyên đầu tiên? (N
được nhập vào từ bàn phím)
Câu 4 : Viết chương trình đếm số các số chẵn của 10 số nguyên đầu tiên? (N được
nhập vào từ bàn phím)
Câu 5 : Viết chương trình đếm số các số lẻ của 10 số nguyên đầu tiên? (N được nhập
vào từ bàn phím)
Câu 6 : Viết chương trình đếm số ước số của số nguyên N? (N được nhập vào từ bàn
phím)
Câu 7 : Viết chương trình tính và in ra tổng các ước số của số nguyên N? (N được
nhập vào từ bàn phím)
Câu 8 : Viết chương trình đếm số các số chia hết cho 3 trong phạm vi từ 1 đến N? (N
được nhập vào từ bàn phím)
Câu 9 : Viết chương trình tính và in ra tổng các số chia hết cho 3 của trong phạm vi từ
1 đến N? (N được nhập vào từ bàn phím)
1.viết chương trình in đếm có bao nhiêu số là bội của 3 trong phạm vi từ 1 đến 100
2.Viết chương trình đếm có bao nhiêu số chẵn trong phạm vi từ -100 đến 100
3.viết chương trình đưa ra màn hình các số là bội của 5 trong phạm vi từ 1 đến 100
Ai đó giúp mình với ạ
Sử dụng câu lệnh For-do viết chương trình nhập vào 2 số nguyên dương M và N (M<N).tính và đưa ra màn hình các số chẵn trong phạm vi từ M đến N
Viết chương trình giải các bài toán sau :
(Mỗi bài 1 chương trình)
1) Cho 1 dãy gồm N phần tử .Tính tổng các phần tử CHẴN trong dãy.
2) Cho 1 dãy gồm N phần tử .Tìm giá trị LỚN nhất trong dãy (N \(\le\) 400).
3) Cho 1 dãy gồm N phần tử .Sắp xếp dãy theo chiều TĂNG dần.
CÁC BẠN GIÚP MÌNH VỚI ! CẢM ƠN !
Giúp em gấp mn ơi Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( với n được nhập từ bán phím) sao cho 15 số được in trên một dòng
ai giúp mk bài này đi ' in ra số từ 1 tới N (N là số nguyên nhập từ bàn phím)