K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HT
2
11 tháng 5 2021
b)
uses crt;
var j,t:integer;
begin
t:=105;
j:=0;
while t>=20 do
begin
j:=j+5;
t:=t-j;
end;
writeln(t);
writeln(j);
readln;
end.
11 tháng 5 2017
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.
14 tháng 3 2017
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 .
Các bạn giúp mình với 
NV
3
KS
7 tháng 5 2017
Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại
Câu 1:
*For...to...do:
Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Hoạt động: Ở dạng lặp tiến, câu lệnh viết sau từ khóa phải thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.
Câu 1:
*For...downto...do
-Cú pháp: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
-Hoạt động:
Ở dạng lặp lùi, câu lệnh viết sau từ khóa do được thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.