program A00;
uses crt;
var S :Real;
a :Real;
N: Integer;
begin
writeln('nhap a');
readln(a);
S:=(1/a);
N:=1;
while not (1/(a+N)>100) do
begin
N:= N+1;
S:= S+1/(a+N);
end;
writeln('S là: ', S:8:4);
readln;
end.
Giúp mình tìm lỗi sai không xuất được S ạ.
Vct xuất ra các số âm gần 0 nhất
Áp dụng giải một số bài toán có sử dụng vòng lặp có cấu trúc
Bài 1: Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…+1*10 + 2*1+2*2+…+…+ M*10. Biết rằng M là số nguyên dương được nhập từ bàn phím.
Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chao ban. Ban co khoe khong!”. In 5 lần lên màn hình trên 5 dòng khác nhau.
Bài 3: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.
Bài 4: Viết chương trình tính tổng bình phương các số chẵn từ 1 đến n; với n là số nguyên dương được nhập từ bàn phím.
giúp vs ạ
Vct nhập số n,tính tổng các phần tử lớn hơn 50 và chia hết cho 10!
Vct tính tổng các số có chữ số tận cùng là 5
Viết chương trình nhập số tiền chi tiêu của em trong 3 tháng tháng 8,9,10. Tính tổng số tiền chi tiêu đó. Xuất ra màn hình tổng số tiền chi tiêu và dùng thông báo "quá nhiều" nếu tổng chi tiêu >= 15.000.000đ, ngược lại "không nhiều"
ở hội khỏe Phù Đổng các đoàn đại biểu đến tham dự rất đông vì vậy việc bố trí chỗ ở cho mỗi đoàn không phải là một việc đơn giản đoàn đại biểu của một tỉnh lớn có n người .Khách sạn dành cho đoàn chỉ có hai loại phòng phòng hai người vào phòng ba người .Để tiết kiệm kinh phí trường đoàn quyết định thuê càng ít phòng càng tốt và các phòng được thuê phải ở hết chỗ Hãy xác định phòng 2 chỗ a2 và và phòng 3 chỗ A3 cần thuê.
Vd:
Dữ liệu vào:7
Dữ liệu ra: 2 1
Viết cấu trúc ré nhánh :
a, 1 số tự nhiên n là số chẵn hay số lẻ
b, Đưa ra số lớn nhất trong 3 số a,b,c
c, Đưa ra số lớn thứ 2 trong 3 số a,b,c
nhập vào 3 số nguyên từ bàn phím sau đó dưa ra màn hình. tổng 3 số này có chia hết cho 3 hoặc chia hết cho 5 hay không
