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.
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.
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 .
Trả lời câu hỏi thì sẽ có GP rất nhanh, còn lại thì chả có cách gì nữa đâu (ngoại trừ chơi gian nhờ CTV tick hộ)
Ngô Lê Dung ít ra cx wen nhìu ng` ms nhờ CTV đc chứ:v
mak câu nì là cái thứ mấy chục r chời ==''
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.
Uses crt;
Var a,b : integer;
Begin
Writeln('Tong hai so a va b la= ', a + b );
Readln;
End.
Win mấy vậy?
Win 10 bạn