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.
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.
Viết chương trình kiểm tra số nguyên n có chia hết cho
3 ko?
viết chương trình kiểm tra số nguyên n là chẵn hay lẻ(âm hay dương)
viết chương trình nhập vào 3 sô nguyên
a) kiểm tra xem đó có là độ dài 3 cạnh của 1 tam giác
b)...............................(như trên) 3 canh của 1 tam giác vuông cân
c)như trên 3 cạnh của 1 tam giác cân
mn giúp với , mk cần gấp lắm
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.
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.
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é.
Uses crt;
Var a,b : integer;
Begin
Writeln('Tong hai so a va b la= ', a + b );
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.
n chia hết cho 1 và n chia hết cho n chưa chắc n là số ngtố bạn