Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Uses crt;
var i,n: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then writeln(i);
readln;
end.
var x,n:longint;
begin
read(x,n);
while n<>0 do
begin
n:=n-1;
x:=x*x;
end;
write('gia tri ',x,'mu',n,'la : ',x);
end.
hứa 5 sao nhe :)
sorry up nhầm bài
Bài đúng nè
var n,x,x2:longint;
begin
read(x,n);
x2:=x;
n:=n-1; {vì x mũ 1 nên n=n-1}
while n<>0 do
begin
n:=n-1;
x:=x*x2;
end;
write(x,' mu ',n,' = ',x);
end.
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
program Hien_thi;
uses crt;
var n,i:longint;
begin
clrscr;
writeln('nhap so tu nhien n'); readln(n);
for i:=1 to n do
if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);
readln
end.
Program tim_uoc;
Uses crt;
Vả i,N:integer;
Begin
Clrscr;
Writeln('Nhap gia tri N:');Readln(N);
For i:=1 to N do
If N mod i =0 then writeln(i,'la uoc cua N);
Readln
End.
Var b:longint;
begin
write('Nhap vao so b = ');readln(b);
if b mod 3 = 0 then write(b,' chia het cho 3')
else write(b,' khong chia het cho 3');
readln;
end.
var i,s,n: integer;
begin
clrscr;
write('Nhap vao so n = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cua ',n,' so tu nhien dau tien la ',S);
readln;
end.
Program Sara_Trang;
Uses Crt;
Var n:integer;
Function gt(n:integer):longint; Var kq,i:integer;
Begin
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH N! :');
Writeln('---------------------------------------');
Write('Nhap n = '); readln(n);
Writeln(n,'! = ',gt(n));
Readln;
End.
Mik ko giỏi phần CT con cho lắm sai sót mong bạn thông cảm