Cho trc 2 số nguyên x và y,viết lên màn hình các số liên tục từ x->y
vd:x=5 y=10
các số liên tục từ x tới y là:5,6,7,8,9,10.
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.
Var i , n : Integer;
A : real;
Begin
write ( ' n = ' ) ; read (n);
A:= 0;
For i := 1 to n do A:= A + 1/i;
Writeln (A);
Readln;
End.
viết chương trình nhập 2 số nguyên dương m và n sau đó tính trung bình cộng các số nguyên từ m đến n
https://cnttqn.com/threads/pascal-viet-chuong-trinh-tinh-diem-trung-binh-va-xep-hang.2223.html tham khảo
Var n , a , i : integer;
Begin
write (' n = ') ; read (n);
write (' a = ') ; read (a);
For i:=1 to n do
If i > a then write (i ' ');
Readln;
End.
Var i , n : Integer;
S : real;
Begin
write (' n = ') ; read (n);
S:=0
For i:=1 to n do S:= S + 1/i;
Writeln ( S );
Readln;
End.
program bai1;
var i,n,s:longint;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.