Cấu trúc rẽ nhánh và lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Ngô Hồng Anh
Tính tổng sau: S= 1/(a+1) + 2/(a+2) + ... + 50/(a+50) Với a là số nguyên, a>2 và a đc nhập từ bàn phím
Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:26

uses crt;

var a,i:integer;

s:real;

begin

clrscr;

write('Nhap a='); readln(a);

s:=0;

for i:=1 to 50 do 

  s:=s+i/(a+i);

writeln(s:4:2);

readln;

end.

Minh Lệ
26 tháng 2 2021 lúc 21:42

Program HOC24;

var s: real;

i,a: integer;

begin

write('Nhap a = '); readln(a);

s:=0;

if a>2 then

for i:=1 to 50 do s:=s+i/(a+i) else write(a,' chua thoa man dieu kien >2');

write('S = ',S:1:2);

readln

end.


Các câu hỏi tương tự
Huyền Nguyễn
Xem chi tiết
Hạ Nhật
Xem chi tiết
phươngplayergamer
Xem chi tiết
phạm hương trà
Xem chi tiết
Vũ Ngọc Lan
Xem chi tiết
darkknight
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
Trang Đỗ
Xem chi tiết
Đinh Như Quỳnh
Xem chi tiết