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.

10 tháng 5 2017

4a

5d

7 không đáp án nào đúng đâu bạn

8c

9a

12a

13a

14d

15c

16c

17b

19c

chúc bạn thi tốt haha

5 tháng 8 2017

Bài 9. Làm việc với dãy sốBài 9. Làm việc với dãy sốBài 9. Làm việc với dãy số

5 tháng 8 2017

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

1 tháng 12 2016

vãi cả photoshop :V t tưởng ông làm gì

1 tháng 12 2016

hay gọi thầy chỉ đánh sập tiệm nét đê :D

25 tháng 9 2016

dòng nào cũng 5 kí tự ?

25 tháng 9 2016

begin

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   readin

end.

8 tháng 5 2017

thiếu hai dấu chấm phẩy ";" ở: Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

sửa thành:

TB: real;

A: array [1..100] of real;

lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:

Bài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trình

Sửa lại thành:

readln (a[i]);

TB:=0;

TB:=TB/n;

Cần có thêm readln trên end. để dừng chương trình lại để xem.

13 tháng 10 2017

VPT đây nhé :

VPT là gì Bùi Khánh Thi

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 .

14 tháng 3 2017

dài VL

20 tháng 4 2017

k thấy j hết bn ơi

25 tháng 8 2017

để nghiêng , mà lại mờ quá:))

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 10 2017

Tuấn Anh Phan NguyễnTrịnh Thị Như QuỳnhThuyết DươngDương Thu HiềnNguyễn Trần Thành ĐạtGiao HuỳnhMinh Hieu Nguyen