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 A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .
2/ program bt;
var N,i:integer;
begin
write('nhap so N'); readln(N);
writeln;
writeln (' bang nhan ', N);
writeln;
for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end
readln
end.
Mik chỉ bít làm bài 2 thôi!
program loc_so_le;
uses crt;
var N,y: longint;
begin
Writeln('Nhap so N '); Readln(N);
for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');
Readln;
end.
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại
***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!
Program Abc_2003;
Uses crt;
Var: i,n,S,d,m,n: integer;
A: array[1..1000] of integer;
Begin
Clrscr;
Write('Moi ban nhap so phan tu cua mang: '); Readln(n);
For i:= 1 to n do
Begin
Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);
end;
s:= 0
For i:= 1 to n do
begin
if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;
S:= S+1;
end;
Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');
Readln;
End.
Program bai1;
uses crt;
var T: real;
begin
clrscr;
write('nhap T ='); readln(T);
if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')
else
writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');
readln;
end.
Program luy_thua;
Uses crt;
Var a, i, n: integer;
Begin
Write('Nhap co so a: '); readln(a);
Write('Nhap so mu n: '); readln(n);
For i:=1 to n do a:=a*a;
Writeln('Gia tri a luy thua n la: ', a);
Readln;
End.
Viết bình thường một lệnh cũng được mà, mình không biết làm 2 lệnh
program Tinh_hieu;
var n,i: integer;
S: longint;
begin
write('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do S:=S-i;
writeln('Hieu cua ',n,' so tu nhien dau tien S=', S);
readln
end.
program Tinh_hieu;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap so n = ');readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S-i;
readln;
end.
Sửa đề: Trình bày cú pháp và hoạt động của câu lệnh lặp với số lần chưa biết trước
Cú pháp:
while <điều kiện> do <câu lệnh>;
Hoạt động:
Bước 1: Kiểm tra điều kiện
Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện câu lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại Bước 1