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.
Trường mình thi rồi nhưng đề dễ lắm, không khó như câu này đâu 
.
program tong;
var s,i : integer;
begin
i:=0; s:=0;
while S < 100 do
begin
S:=s+i;
i:=i+1;
end;
writeln('Tong nho nhat lon hon 100 la: ',s);
writeln('So lan lap la: ',i);
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.
b1: Nhập n.
b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.
b3: Thông báo kết quả và kết thúc thuật toán.
Các bạn giúp mình với 
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
program P;
var x, y, P: integer;
begin
writeln('nhap x va y = ');
readln(x,y);
P:=x*x+y*y+x*y;
writeln('gia tri bieu thuc = ',P);
readln
end.
Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.
bn là cung nào?
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 .
Chưa chắc giống nhau nhưng tham khảo :
Câu 1 : Viết các phép tính sau trong pascal :
a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)
b) \(a^2+b^2-5ab-\frac{43}{3}\)
c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)
Câu 2 :
Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.
Câu 3 :
Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.
Mik thực hành thôi bạn
Tớ có
lớp mik kiểm tra 2 loại 1 là thực hành 2 là lm bài viết
có thì đăng đề đêu
câu 2 giống hệt nhug tiếc là kiểm tra 2 tuần trước rồ Lovers
Đây cậu nhé:
Hãy chọn đáp án đúng nhất Câu 1. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal: a. 8a b. tamgiac c. program d. bai tapCâu 2. Để chạy chương trình ta sử dụng tổ hợp nào: a. Ctrl – F9 b. Alt – F9 c. F9 d. Ctrl – Shitf – F9Câu 3. Trong Pascal, khai báo nào sau đây là đúng? a. Var tb: real; b. Type 4hs: integer; c. const x: real; d. Var R = 30;Câu 4. Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ? a. (a*a + b)(1+c)(1 + c)(1 + c) b. (a.a + b)(1 + c)(1 + c)(1 + c)c. (a*a + b)*(1 + c)*(1 + c)*(1 + c) d. (a2 + b)(1 + c)3Câu 5. Writeln (‘Ban hay nhap nam sinh’); Readln (NS);Ý nghĩa của hai câu lệnh trên là:a. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh”.b. Yêu cầu người sử dụng nhập giá trị cho biến NS.c. Thông báo ra màn hình dòng chữ: “Ban hay nhap nam sinh” và yêu cầu người sử dụng nhập giá trị cho biến NSd. Tất cả đều sai.Câu 6: Để mở rộng giao diện pascal ta dùng tổ hợp phím nào?a. Ctrl_F9 b. Ctl_Shif_F9 c. Alt_Enter d. Ctrl_ Shift_Enter.Câu 7. Chọn câu chính xác nhất cho câu trả lời sau:a. var = 200; b. Var x,y,z: real;c. const : integer; d. Var n, 3hs: integer;Câu 8: Ta thực hiện các lệnh gán sau : x:=1; y:=9; z:=x+y;Kết quả thu được của biến z là:a. 1 b. 9c. 10 d. Một kết quả khácCâu 9: Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như sau :a. Tong=a+b; b. Tong:=a+b;c. Tong:a+b; d. Tong(a+b);Câu 10: Trong Pascal, phím F2 có ý nghĩa là:a. Chạy chương trình b. Lưu chương trìnhc. Dịch chương trình d. Mở bài mới