Nhập số thực dương n in ra tổng các số thực dương n từ 1 đến n thỏa mãn điều kiện lớn hơn 10 và bé hơn 20
Thuật toán :
B1) duyệt tất cả các số thực dương từ 1 đến n
bước 2: nếu có số thực dương thứ ứ i thỏa mãn điều kiện lớn hơn 10 và bé hơn 20 thì cổng thêm i
vào tổng
bước 3 in tổng
bước 4kết thúc thuật toán
Giúp mình với làm chương trình theo thuật toán này
Program ntg;
Uses crt;
Var n,i,s:integer;
Begin
Write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to n do
If (i>10) and (i<20) then s:=s+i;
Write(‘Tong cac so thoa man dieu kien la: ‘,s);
Readln
End.
program tongthucduong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write(‘Moi nhap so n: ‘); readln(n);
s:=0;
for i:=1 to n do
if (i>10) and (i<20) then s:=s+i;
write(‘Tong cac so thoa man dieu kien la: ‘,s);
readln
end.